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VOORWOORD 


ledereen weet natuurlijk dat computers voor allerlei doeleinden gebruikt 
worden, zoals voor financiële berekeningen, zakelijke toepassingen en 
tekstverwerking. 

Toch kunnen ze ons ook op een heel andere wijze van nut zijn. We moe- 
ten daarbij onwillekeurig aan het spreekwoord „, na gedane arbeid is het 
goed rusten" denken. Ontspanning is inderdaad een noodzakelijk deel 
van ons leven. Ter ontspanning lezen we boeken, hebben we onze hob- 
by's en vermaken we ons met spelletjes. 

Bruegels beroemde schilderij „Spelende kinderen’ bewijst op treffende 
wijze dat dit in feite een eeuwenoude waarheid is. 

Dit boek vol spelen is dan ook voor die broodnodige ontspanning be- 
doeld en wel voor iedereen van 6 tot 96 jaar. Er zijn spelen om in je eent- 
je te spelen en andere om met het gezin of vrienden te spelen. 

Er zijn actiespelen bij om uw reflexen te testen, puzzels en ware hersen- 
krakers om uw geest te scherpen en bordspelen waarin we onze krach- 
ten met die van de computer kunnen meten. 

Natuurlijk zijn er ook enkele arcade-achtige spelen. 

En ten slotte … wilt u een avontuur beleven … I.T., de adventure van de 
eeuw brengt u in een geheel andere wereld. 

Een klasse apart wordt gevormd door de spelen die we snel kunnen in- 
typen maar die toch voor zeer intrigerende effecten zorgen. 


Als we weer naar het schilderij kijken komt automatisch een gedachte 
bij ons op … als Bruegel nu leefde, zou zijn schilderij er dan zo uitzien? 
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GALACTISCHE MONSTERS 


Eindelijk is het zover, op het x-y-Gz radarscherm is duidelijk zichtbaar 
dat we de Melkweg naderen. Nog slechts 2.56 protoseconden en we 
zijn weer veilig in ons eigen melkwegstelsel! 

Maar er dreigt gevaar en diep in uw hart weet u heel goed wat het is. 
Uw blik is strak gericht op het LC2F scherm. Nog geen alarm … De 
spanning wordt ondraaglijk … 2,5 protoseconden … 2,0 protoseconden 
… 1,5 protoseconden … oh nee! Daar is het … 


DE VAN ALLEN SQUARE STONE BELT 


Er zijn veel van deze beruchte velden, velden waarin de angstaanjagen- 
de galactische monsters loeren. Geen wapen kan iets uitrichten tegen 
deze wraakzuchtige monsters; het enige dat u doen kunt is ze trachten 
te ontwijken. 

Als het spel begint ziet u de VAN ALLEN SQUARE STONE BELT en dan 
kunnen we onze bewegingen sturen aan de hand van de cursortoetsen. 


Als u de VAN ALLEN SQUARE STONE BELT een tweede maal over- 
steekt zullen de monsters agressiever worden. 

Op de een of andere manier hebben ze een voorgevoel van iedere be- 
weging. Als ze er in slagen u vijf keer met succes aan te vallen, dan is 
het definitief met u gedaan… 


Succes … slechts een paar protoseconden te gaan en er wacht een lek- 
ker bakkie koffie! 


18 ‘MSX - Galactische Monsters 

28 ’ 

30 DEFINT A-Z 

48 DEF FNVD$CX,Y)aMID$CUDS$, (X+Y) MOD 2+1,1) 

59 DEF FNMOSCX,Y)=MIDSCMOS$, CCX+Y) MOD 2)42+1,2) 
69 DEF FNJACXS$)=INSTR("Jj",LEFT$SCX$,1))0 

78 DEF FNRNCX)=4+INTCXERNDCX)) 

83 DU=FNRNC-TIME/2) 

se 
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GOSUB 398’ init 

GOSUB 630’start 

GOSUB 839’speler zet 
IF SC>@ THEN SC=SC-1 
LOCATE 19,20:PRINT SC; 
IF BCSX,SY)>0 THEN 229 
IF SY>zAV THEN 299 
GOSUB 998’computer zet 
IF BCSX,SY)>8 THEN 229 
GOTO 128 

GOSUB 1290’‘overgekomen 
GOTO 110 

GOSUB 1279’gevangen 

IF AG<5 THEN 410 
LOCATE 6,23: INPUT"Nog een keer" ;AN$ 
IF FNJACAN$) THEN RUN 
SCREEN@:COLOR 15,4, 4 
END 


‘XX initialisatie XX 

‘op uw plaatsen 

AV=11 

DIM BCAV,AV),MXCAV), MYCAUD 

FOR I=1 TO AV 

MXCID=i:MY(IJ=1 

NEXT I 

B{1,1)=AV 

SX=1:3Y=1 

COLOR 15,1,1:SCREEN 1 
B5S=BASE(6) 

FOR I= TO 4 

READ KO,KL$ 

VPOKE BS+KO,VAL("&h"+KL$D 

NEXT Ì 

DATA 27,61,26,61,25,55,00, 51 
MOS=CHRSCHIHCHRSECES)IHCHRSCIJ+CHRELEED 
UD$=" "+CHRSCHHCFD 

‘scherm 

LOCATE 7,45:PRINT P_n 
LOCATE T,3:PRINT" mement 
FOR Y=1 TO AV 

LOCATE 9,3+Y 

PRINT TABC7)" p';TABC49)"E"; 

FOR X=1 TO AV 


LOCATE 7+X,3+Y:PRINT FNVDSCX, YW); 

NEXT X,Y 

5C=G:AG=0: AK=G 

LOCATE 6,418:PRINT"Gepakt:";AG;" keer" 
LOCATE 6,49:PRINT"Over: "s;AK;"” keer" 
LOCATE 6,28:PRINT"Score: ';SC; 

RETURN 


‘Xx start nieuw spel XX 

LOCATE 7+5X,3+5Y:PRINT FNVDS$SCSX,SY); 
SX=6:SY=1 

LOCATE 7+4+SX,348Y:PRINT"S"; 

FOR I= TO AV 

K=l:Y=zAV-3:G0SUB 730’ verzet 

NEXT I 

PLAY"V15 L28 O2 CDEFGAB O3 CC" 
RETURN 


‘XK verzet monster i X% 
MX=EMXCID:MYEMYCID 
BCMX,MYI=BCMX, MY) -1 

IF BCMX,MY)>0 THEN 789 

LOCATE 7+MX,34+MY:PRINT FNVDSCMX, MY); 
LOCATE 7+X,3+Y:PRINT FNMOSCX, WY); 
BX, YI=BCX, YI +4 

MXCI) EX: MY CID=Y 

RETURN 


‘KX speler zet KX 

IF INKEYSC>"" THEN 840 

PLAY"SB M5GOB L4 O4 D" 

TIME=@ 

ZT$=INKEYS$ 

IF TIME<25 AND Z2T$="" THEN 879 

IF 2T$="" THEN 970 

ZT=ASCC2T$) 

RX=(2T=239 AND SXP1)-(2T=28 AND SXCAVD 
RY=(Z2T=38 AND SY1)-(2T=31 AND SYCAV) 
IF RX=8 AND RY=9 THEN 950 

LOCATE 7+5X,3+5Y:PRINT FNVDS$SCSX, 54); 
SXESKARK: SVESYeRY 

LOCATE 7T#4#5X,344SY:PRINT "5"; 

RETURN 


13 


990 

1009 
1618 
1828 
1838 
1949 
1858 
1960 
1679 
1089 
1099 
1108 
1118 
1129 
1130 
1140 
1159 
1168 
1178 
1189 
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‘KK computer zet XX 

FOR Ie1 TO AV 

KeMXCI): Yael 

IF FNRNC40)<AK+1 THEN 1980 
‘random zet 

RZFNRNC4) 

RäeCR=i AND X>1)-(R=2 AND XCAU) 
RY=CR=3 AND WILD -(R=4 AND YLAUD 
GOTO 1149 

‘berekende zet 

ON FNRNC2) GOTO 1109,1129 
RX=SEGNC8X-X) :RY=g 

IF RX<>8 THEN 1149 
RX=B:RYESENCSY- 

IF RY=@ THEN 1100 

‘eigenlijke zet 

HEKtRX: ValeRY 

GOSUB 730’‘verzet 

NEXT I 

RETURN 


1190 
1209 
1219 
1229 
1230 
1240 
1250 
1260 
1279 
12389 
1299 
1309 
1310 
1329 
1339 
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‘XK veilig overgekomen XX 
AK=AK+1 

SC=5C+2DKAK-5EAG 

LOCATE 13,19:PRINT AK; 
LOCATE 13,28:PRINT SC; 
RETURN 


‘XX speler gevangen XX 
FOR I= TO BCSX,SY) 
PLAY"V15 L28 O5 BAGFEDCC" 
NEXT I 

AG=ZAG+B(SK, SY) 

LOCATE 19,18:PRINT A6; 
RETIRN 
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ZOMBIES IN HET MOERAS 


Pas op! Zombies dwalen rond en toch zult u het moeras moeten overste- 
ken. Om deze opwindende taak te kunnen volbrengen moet u gebruik 
maken van vlotten. 

Aan het begin van het spel ziet het moeras er als volgt uit: 


UITGANG 
- 
MOERAS 


U bevindt 
zich hier 


U staat in de rechterbenedenhoek en u moet trachten de schuin hier te- 
genoverliggende hoek te bereiken om zo uiteindelijk te ontsnappen. 


Om een vlot uit te werpen geeft u de richting aan met een van de cursor- 
besturingstoetsen, houdt deze ingedrukt en druk vervolgens op de spa- 
tiebalk. Op dezelfde wijze kunt u zich verplaatsen. 

Indien u gebruik maakt van de joystick geeft u weer de richting aan 
doormiddel van de stick, de knop gebruikt U om een vlot uit te werpen 
of u te verplaatsen. 

Misschien lijkt dit alles nog niet zo moeilijk maar pas op! Van tijd tot tijd 
komt één van de Zombies uit het moeras en hij dwaalt hierna over de 
vlotten die u heeft uitgeworpen. Als hij u op zijn weg tegenkomt is het 
natuurlijk met u gedaan… Gelukkig zien Zombies niet zo erg goed en 
hierdoor vallen ze toch nog wel eens in het moeras. Om dit spannende 
spel te kunnen winnen moet u een aparte strategie ontwikkelen en dit 
nu maakt het spel zo aantrekkelijk. Hoe langer en ingewikkelder uw weg 
is, hoe moeilijker de Zombies u te pakken kunnen krijgen, maar tevens 
hoe langer het duurt voordat u aan de overkant bent aangeland. Dus 
… hoe meer Zombies er zullen verschijnen … 

Kortom … horror op de buis! 
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“MEA -— Zomkies 


DEFINT A-Z 

DEF FNJACKHSS=INSTRC"Jj", LEFTECKS, 1020 
DEF FNRNCHJ=L+INTCHERNDG HD} 
PIZFNRNC-TIMEr2} 


“EX hoofderogramma £# 
GOSUB 124“ init 

GÜSUB 238 “moeras 

ON STRIG GOSUB 216,214 
ON SPRITE GOSUE 1169 
STIRIGGST A ON:SPREILTE: (ON 
GOSUE SHG“ zombie 

GUT) 1448 

END 


‘EK initialisatie #% 
COLOR 15,4,4:SCREEN B 
JA=-1:NEE=Ë 

Al=3 

DIM BCAV+1,AV+1) 

FOR I=4 TO AV+1 

BiB, Ij=3:ECI,Gj=3 
BCAV+1,I)=3: BCI, AV+1j=2 
HERT I 
Belsele BOB Add 
SATAN: SY=Al: BCAV, AVD=1 
INPUT" Joystick" ;AN$ 
ST=-FNJACANS) 

RETURN 


“EX moeras XX 

GOLOR 4 LOU ISCREEN Eijie 
LINE Goe, Uisteed deld bt 
FOR Led TO LY STER 5 

LINE CSeNT, DEEL, 13,3 
LINE (224-1,494)=£223,092=10,5 
NEXT I 

FUR I=3 TO 4 

SF$=" " 

FOR J=6 TO 31 

READ WV 
SPS=SPS+CHRECHAL KG "EH" AE) 
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458 NEXT J 

4e EPRITESCIJ=SFE 

dT NEKT I 

43A Kzal: zal 

4390 5=3:G05UB 644 

s08 S=1:G05UB 644 

218 RETURN 

sr ld 

530 “speler 

Sdá DATA 07,0F,4F,67,32,1F,02,02 
250 DATA G2,82,9F,13,16,15,10, 20 
z60 DATA HA,20,94,30,68,C0,04, 08 
ST DATA 48,06,20,CA, 40, 44, 4A,60 
238 ‘monster 

530 DATA GF,1F,3F,2F,77,6T,FF,FF 
EUD DATA AA,B0,55,FF,TF,3F,1F, BT 
618 PATA 30,C0,EG,EG, T4,20,F3,F83 
E20 DATA A2,B4,50,F2,FO,EG, CH, 04 
630 * 

6408 “EK vul veld 4%£ 

654 ON 5 GOTO 66£0,6T7T4,T20,T5H 
66D EX=A:SYe=f:KL=2:G0T0 TOG 

ETD Mez: Yez 

688 IF BH,Y)=0 THEN 7598 

690 IF MAZAV OR MYZAU THEN KL=B ELSE KL=6 


=, le s , 

DT tn 
pe PID d Ee 
ze EENES TE MAT Inf 
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960 
LX:G 


PUT SPRITE S-1,C24%X+14, 24-21) ,KL 
RETURN 

LINE (24%X+8,24%Y-24)-STEPC23,232, 1, BF 
BX, Y)=1 

RETURN 

PSET (24XX+20,24kY-12),8 
DRAW"NU10;ND16;NL10;NR1G;NES;NFE; NGE; NHB" 
BCK, Y)=3 

PUT SPRITE 1,(9,0),0 

RETURN 


‘XX speler heweegt £%X 
R=STICK(ST 

KESAt+(R=T) -CR=I) 
VaSt+úR=1j-(R=5) 

IF BCN, Y)=i THEN S=1:GOSUB 640 
IF Bik, W)=g THEN 5=3:G0SUB 649 
IF SX=0 OR S= THEN 1199 
RETURN 


LEK monster heweeat 4% 

IF SH+SY>24AV-3 THEN RETURN 
STRIGCST) STOP 

Hz: YA: S=: GOSUE 640 
STRIGCST) ON 
LA=L-FNRNC2):LY=-1-L4 
K=2KFNRNC2S -3 

‘nieuwe richting 


IF BCMK-K&LY,MY+KALXO=EL THEN Räz=-K&LY:RY=EKÁ 


OTO 1429 


930 IF BCM4+LK,MY+LYIC3 THEN RX=lä:RY=L:60TO 1 


928 


1606 IF BCMX+K&LY,MY-KALKD=L THEN RX=K4LY:RY=-K 


XLA: 
1619 
1029 
1030 
14465 
1650 
1063 
1070 
1489 
1994 


GOTO 1629 

Räz-LA:RY=-LY:6G0TO 1020 

‘voer zet uit 

LXERX:L YER 

STRIG(ST) STOP 
AsMAtLä:t=MYt+Lv:S=2:GOSUB 640 
STRIGCST) ON 

IF BCMX,MY)C3 THEN 979 

RETURN 


, 
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1104 “Et opgevroten X% 

11148 STRIGCST) OFF 

11209 TIME=9 

1138 IF TIME<106 THEN 11368 

1144ä OPEN "grp:" FOR OUTPUT AS #1 

4E GOLUR Lord. 

EDO IENE 256 A20 SE AEEA HP 

11478 PRESET €30,41412) 

1180 IF SX=MX AND SY=Mt THEN PRINT #1,"U bent h 
elaas opgevreten" 

11494 IF S=4 OR S'tY=0 THEN PRINT #1,"Mooi! U heb 
t het gehaald!" 

1209 IF S4=MX AND StY=Mt THEN PRINT"U bent helaa 
s opgevreten!" 

eV LINE CASA ADO Tel dr dn BE 

1220 PRESET (80,4122) 

1233 IF INKEY$<,"" THEN 1230 

1240 PRINT #1,"Nog een keer?" 

1256 IF FNJACINPUT$C4)) THEN RUN 

1264 COLOR 15,4,4:SCREEN B 
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KEYBOARD MEMORY 


Bij dit spel gebruiken we het toetsenbord (Engels: keyboard) van de 
computer om uw geheugen te testen. Achttien toetsen verbergen nl. 
een symbool en wel op dezelfde manier waarop een speelkaart die op 
z'n kop ligt, zijn waarde verbergt. 

Er zijn maar negen verschillende symbolen. Dit houdt in dat ieder sym- 
bool onder precies twee toetsen voorkomt. De toetsen waarom het hier 
gaat worden steeds op het scherm getoond. Als we nu een toets indruk- 
ken zal het symbool wat deze toets „verbergt op het scherm worden 
getoond. Als u nu twee toetsen na elkaar indrukt die het zelfde symbool 
verbergen dan zullen deze toetsen van het scherm verdwijnen. 


OW EE Belek 
A 5 OO PM 
A A CG WB 


Uw eerste pogingen zijn natuurlijk gissingen maar door de posities van 
de getoonde symbolen te onthouden zult u spoedig ontdekken welke 
toetsen paren vormen. 

Hoeveel beurten heeft u nodig om het scherm leeg te krijgen? 


10 ‘MSX-keyboard memory 

29 ‘Arend Rensink 

0 * 

49 DEFINT A-Z 

50 DEF FNRNCXOD=4+INTCXERND(X)D 

63 DEF FNK$(F$)=F$+B$+F$+K4S$+K5S+BSAFS+BSHK4S+K 
5$+F$+B$+F$ 

79 DEF FNJA=INSTR("Jj",INPUT$C41))D0 
88 DU=FNRN(-TIME/2) 

98 ’ 

198 ‘XX hoofdprogramma XX 

118 GOSUB 309’‘initiatie 

129 GOSUB 698’ bord 
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460 


GOSĲUB 9908‘ invoer 

IF AZ MOD 2=4 THEN GOSUB 1990’terugdraaien 
GOSUB 1198‘uitvoering 

IF OMCAK/2 THEN 139 

GOSUB 1398’einde 

IF WEER THEN IF OUD THEN 126 ELSE RUN 

CLS 

COLOR 15,4,4 

END 


‘KX initiatie XX 

SCREEN 1 

COLOR 15,2,2 

BS=BASEC6) 

FOR I=8 TO 3 

VPOKE B5+8+I,&H16 

NEXT I 

VPOKE BS+26,&HF6 

VPOKE BS+28,&H6F 

VPOKE B5+29,&H1F 
K1S$=STRINGS$C3, 192) 
K2$=STRINGS$C3, 210) 
K3S$=STRINGSC3, 195) 
K4S$=CHRECLGI+STRINGSC3, 8) 
B$=CHR$C219) 
KSS$=STRING$C3,B$)+K4S 
KRTS$EK1S$+K4S+K2E+K4SHK2SHK ASK ASK AEK ZEK 4 


$+K2$+K4E+K IS 


470 
468 
430 
500 


TT8$="QWERTYASDFGHZXCHEN" 
AK=LENCTT$):DIM BCAK-4) 
RIJ=6 

‘schudden 

FOR KRT=8 TO AK-1 
BAKRT)=228+CINTCKRT/ 2) 
NEXT KRT 

FOR TIisá4 TO 20 

SWAP BCFNRNCAK) =4),BCFNRNCAK) -1) 
NEXT TI 

RETURN 


‘XX bord tekenen XX 
CLS 

FOR KRT=8 TO AK-1 

IF B(KRT)<8 THEN 659 


640 GOSUB 248 ‘“achterkant 

654 NEXT 

658 LOCATE 18,22,9 

BTU PRINT" zetten: 0"; 

684 AZ=B:0OM=J 

636 RETURN 

10g 

886 ‘XX achterkant kaart X4 

818 LOCATE 3+4XCKRT MOD RIJ), TKCINTCKRTARIJ), 9 
828 PRINT KRT$; 

838 LOCATE 4+4XCKRT MOD RIJ), 3+TKCINTSKRTZRIJD, 


840 PRINT MID$CTTS$,KRT+1, 1); 
858 RETURN 

268 

980 ‘4 zet invoeren XX 

919 ZETS=INKES 

920 IF ZET$=""THEN 919 

230 ZET=INSTRSTTSS$,ZET$) -4 
949 IF ZET<9 THEN 9418 

358 RETIRN 


1954 ‘KX teruadraaien X% 

1814 IF BCZ(8)j=B(ZC4)) THEN 1079 
1429 FOR I=8 TO 1 

1838 KRT=ZCI) 

1846 GOSUB 248’ achterkant 

1856 BCKRT)=-BÁKRTÒ 
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24 


NEXT I 
RETURN 


‘KK zet uitvoeren 4% 

IF B(ZET)<G THEN 1210 

ZCAZ MOD 2)=ZET 

AZ=AZ+1 

LOCATE 3+4XCZET MOD RIJ),L+T7TKCINTCZET/RIJD 


PRINT FNKSCCHR$CB(ZET))); 
B(ZET)=-B(ZET) 

IF AZ MOD 2 THEN 1219 
LOCATE 17,22,9 

PRINT CINTCAZ/2); 

IF BCZCB))=BCZ44)) THEN OM=OM+4 
RETURN 

‘KK einde XX 

LOCATE 8,23 

PRINT"nog een keer? "; 
WEER=FNJA 

IF NOT WEER THEN 1429 
LOCATE 5,23 

PRINT"dezelfde situatie? "; 
OUD=FNJA 

IF NOT OUD THEN 1420 

FOR KRT=G TO AK -1 
B(KRT)==-BCKRTD 

NEXT 

RETURN 


LAS VEGAS A GOGO 


Heeft u zich wel eens verbaasd over de vasthoudendheid waarmee 
sommige mensen met gokautomaten, zoals een fruitautomaat, hun ge- 
luk beproeven? En heeft u wel eens het verbeten gezicht gezien van de 
persoon die al zijn geld vergokte? Welnu, u zult gauw genoeg merken 
waarom dat gokken toch zo fascinerend is! Als u dit programma laadt 
wordt uw computer plotseling in een geweldige fruitautomaat omgeto- 
verd. Alle spelinstructies worden op het scherm getoond. Soms kunt u 
uit een aantal mogelijkheden kiezen, zoals: 


INSERT, HOLD, PLAY, END 


U kunt nu de keuze aan de computer kenbaar maken, steeds door de 
eerste letter van het door u gekozen alternatief in te typen. Bijvoorbeeld 
P zal de wielen van het geluk opnieuw in beweging zetten … Deze wie- 
len zijn van links naar rechts met 1, 2 en 3 genummerd. Als u een of 
meer symbolen in het venster van de automaat wilt vasthouden, geef 
dan na de H (Hold) ingetyped te hebben de nummers van uw keuze op. 
Daar gaan we dan … de wielen draaien, het apparaat toont zijn bekende 
flitsende betovering en fluistert ons toe … win de Jackpot! 


18 ‘MSX - Las Vegas A GoGo 

”À hd 

39 DEFINT A-Z 

40 DEF FNRNCX)E4+INTCHERNDCHD) 
53 DU2FNRN(-TIME/2) 


718 ‘XX hoofdprogramma XX 

88 GOSUB 269‘init 

98 GOSUB 678‘scherm 

108 IF GD<2 THEN GOSUB 2919:G60T0 130’niet genoe 

g geld 

1148 IF NOT HV THEN GOSUB 2969:G60T0 138’hold mog 

elijk 

120 GOSUB 2299’geen hold 

1308 IF I$="1" THEN IN=4:G0SUB 1580:AIzAI+1:60T0 
109 

140 IF I$="E" THEN 230 


25 


380 


IN=-2:G0SUB 1580’hbetaal 

IF HO THEN LW=Wl 

GOSUB 2268’draai wielen 

GOSUB 2398’‘hbeoordeling 

IF HO AND WIC=LW THEN GOSUB 2768:G0TO 210’h 
mislukt 


IF W 


128 THEN GOSUB 2830‘verwerk winst 


GOSUB 1768’‘aanpassing 


GOTO 


190 


GOSUB 3290’‘einde 


END 


LX 


initialisatie X% 


JA=-1:NEE=G 

CR$=CHR$C13) :BSSSCHR$CBD 
AF=13:AJ=4: AVE 

‘figuren en kleuren 

DIM F$CAF),KLCAF)D,WCAF, 2), JPCAF) 
DIM JTCAJ),HOCAV), VCAV)D 

DIM K2(108) 


J=1 
FOR 
READ 


Izi TO AF 
A$,‚KLCID 


A=VALC"EH"+A$D 
IF A<32 THEN FS$CI)=CHR$CID+CHRSC64+A) ELSE 
FSCIDSCHR$COI+CHRSCAD 


READ 


PR 


FOR JaJ TO J+PR-1:KZ(J)=I: NEXT 
IF 124 AND I<13 THEN READ W(I,1),WCI,2) 


JPCI 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


)eld4 AND 1C8 
| 

41,15,1 

4B, 15,1 
51,15,1 
4A,15,1 
03,6,3,8, 40 
37,12,3,8,40 
0F,10,3,7, 30 
05,4,10,5,25 
0E,8,13,3,20 
BF,11,13,3,20 
E4,12,19,2,19 
23,13,19,2,18 
D9,5,13 


790 
899 
810 
829 
830 
HUD 
840 
RS 
850 
86G 


DIM GC4),GXC4),GYC4) 

FOR I=1i TO 4 

READ GX(I),6YCI) 

NEXT I 

DATA 1290,10,136,39,120,508,1094, 30 
‘spelvariabelen 

HV=JA:DB=eNEE: JP=NEE 

Jo=g 

RETURN 

‘XX scherm tekenen XX 

‘teken bandiet 

COLOR 15,0,0:SCREEN 2 

FOR Isi TO 12 

READ X,Y,KL,TKS$ 

PSET 6%, VA,POINT EK, VI 

DRAW "Czkl; "+TK$ 

PAINT (X,Y),KL 

NEXT I 

DATA 124,178,4,"BU2;R150;D5;L275;US;R125" 
DATA 124,172,5,"BU2;R15;PS;L40;ES; RIJ" 
DATA 124,141,14,"BU25;R15;D54;L30;U54; RIS" 
DATA 124,112,5,"BU2;R27;6G5;L44;HS;R27" 
DATA 124,89,4,"BU20;R27;D40;L54;U40;R2T7" 
DATA 124,65,5,"BU2;R22;F5;L54;G;ES;R22" 
DATA 124,75,2,"BU3I;R19;D9I;L3I; UI; R20" 
DATA 155,105,10,"BL3;U1;RI;U2E6E;R2;D27;G2;LI 


DATA 156,76,13,"BD1;R2;E1;U1;H2;L2;G2;D1;F1 


DATA 124,91,8,"BU4;RI1;DI;L24; UI; RIJ" 
DATA 111,87,1,"D10;R8;U10;D10;R8;U10O;D10; RB 


;Ui4;L24” 


870 


DATA 112,143,12,"M+12,-18;D18;U18;R5;F3; DI; 


B3;LLL;RAL;M+6, +9" 


880 
899 
900 
910 
920 
930 
949 


‘teken scores 

OPEN "GRP:" FOR OUTPUT AS #1 
T$s"e="4+P$(LJI "een 4" 
KL=15:X=20:'Y=20:GOSUB 1410’schrijtf 

FOR I=12 TO 5 STEP -4 

KLs=sKLiI): 2150-1011 
X=20:T$2"-"4+FSCID+FSCIJ+"- ="+STRSCHCI, ADD: 


GOSUB 1419’schrijf 


950 


IF JPCI) THEN T$=B5$+"+J" ELSE T$a"" 
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960 Xe175:T$FSCID+FSCIJ+FSCIJA" ="+STRSCHU(I, 2) 
)+T$:GOSUB 1410’schrijf 

970 NEXT I 

988 RETURN 

998 ’ 

1988 ‘XX boodschap XX 

1810 LINE (256,1492)-STEP(-256,-10),15,BF 

1929 KL=1:X=130-4KLEN(TS$):Y2183:G08UB 1410’scohr 
ijf 

1838 RETURN 

1940 ’ 

1858 ‘XX jackpot gehaald XX 

1960 BEEP:PLAY"S56 M5A9B T129 LB CCCPF4ACCCF4" 
1970 WEG=NEE:GOSUB 1130’J erbij 

1088 IF JT<45 THEN 1079 

1999 T$="Q":KL=15:X284: 220: GOSUB 1419’schrijf 
1188 JP=JA 

11148 RETURN 

ziee ” 

1138 ‘&% J aan/uit XX 

1148 IF WEG THEN KL=8 ELSE JT=JT+1:KLe=i4 

1159 T$="J":X2240-8XJT:Ye20:GOSUB 1410’schrijf 
1163 IF WEG THEN JT=JT-1:JP=JT>0 

1178 IF NOT JP THEN T$="0":KL=0:X=84: Y=20: GOSUB 
14108’schrijtf 

1189 RETURN 

1190 ” 

1208 ‘XX joker gehaald XX 

1219 JT(VCI))=20 

1229 T$eFSCVCID):KL=15:X=100+8KVCID:Y=274: GOSUB 

1418’schrijf 

1239 BEEP:PLAY"S@ M10999 07 TE L4 C* 

1249 RETURN 
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1310 
13209 
1330 
1349 
ijf 

1358 
1360 
1379 
1380 
1390 
1409 
1410 
1429 
1439 
1440 
1459 
1469 
1478 
1489 
1499 
1500 
1510 
1529 
1530 
1540 
1559 
1560 
1579 
1580 


, 


‘Xx dubbel aehaald 4% 
DB=JA:DT=15 


T$s"AKQJ":KL=2:X=108:Y=74:GOSUB 1410’schri 


T$="KDBLX":KL=215:X=105:Y=74:GOSUB 1419'sch 


PLAY"S@ M5O9B T129 O4 L4 CB,CLEDCFER2CB, C16 
DCGF2" 


RETURN 


‘XK dubbel wea XX 


T$="XDBLK":KL=2:X=105: 274: GOSUB 1419’schr 


DB=NEE:JG=0 
FOR I= TO AJ 
JTCI)=0 

NEXT 

RETURN 


‘XX schrijf tekst XX 
PSETCX,Y),POINTCX, Y) 
COLOR KL 

PRINT #1,T$; 

RETURN 


‘XX commando XX 

IF INKEY$CH"" THEN 1480 
KL=K1:GO0OSUB 1419’‘schrijf 

FOR I=1 TO 299:NEXT 
KL=KQ:GOSĲB 14108’schrijf 

FOR I=1 TO 209 :NEXT 
I$=INKEYS$ 

IF I$="" THEN 1429 

IF INSTR(COS$,I$)=8 THEN 1490 
RETURN 


‘XX pas kapitaal aan XX 
SG=SGNCIND 

COLOR 45 

N0=298 

SOUND @,N0O:S0UND 41,9 


SOUND 11,8:SO0UND 12,3:SOUND 13,8:S0OUND 8,1 
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1640 
1659 
1669 
1670 
1680 
1690 
1709 
1710 
1729 
1730 
1740 
1758 
1760 
1770 
1780 
1798 
1809 
1810 
1820 
1830 
Jt 

1348 
1850 
1860 
1870 
1880 
1399 
1900 


hrijf 


1919 
1920 
1930 
1949 
1959 
eg 

1960 
1979 
1989 
1990 
2000 
2919 
2028 
2038 


FOR I= TO IN-SG STEP 56 
GD=6GD+56 

LINE (32,8)-(8,0),6,BF 

PRINT #1,USING"###";GD 

FOR Jui TO 5 

NO=N0-56:IF NOC@ THEN NO=250 
SOUND @,NO 

NEXT J,I 

SOUND 8,9 

IF GD>MG THEN MG=GD 

RETURN 

‘XK pas spelvariabelen aan XX% 
‘verzorg holds 

HVEGDC2 OR HO:HOeNEE 

FOR I=1 TO AV 

AH=AH-HOCID 

HOCID=NEE 

NEXT I 
T$="HHH":KL=4:X=2113:Y=100:GOSUB 1410’schri 


‘verzora dubbel 

IF DB THEN 1949 

FOR I= TO AJ 

IF JTCI)=8 THEN 1929 

JTCIDSJTCI)=1 

IF JT{I)28 AND GD>1 THEN 1920 
T$aF$C(I):KL=2:X=100+8KI: Y=74:GOSUB 1410’so 


JTCI)=0:JGeJG-1 

NEXT I 

GOT) 1960 

DT=DT-1:DB=DT>0 

IF GD<2 OR NOT DB THEN GOSUB 1330’dubbel w 


‘verzorg jackpot 

IF JP THEN WEG=JA:GOSUB 1139'J weg 

IF JP AND GD<2 THEN 1970 

RETURN 

‘KX niet genoeg geld XX 

T$z"Insert of Einde":GOSUB 1998’boodschap 
T$="Insert (I)":X=150:Y=0:K@=0:K1=4: COS="E 


1":GOSUB 1478‘“commando 


30 


E) 


2948 RETURN 

2458 ’ 

2968 ’XX hold mogelijk 4% 

2978 T$="Insert, Hold, Play of Einde":GOSUB 1009 
@’‘boodschap 

2488 T$="HHH":KO=i:Ki=4: 2113: Y=100: CO$="IPE123 


2098 GOSUB 1478’commando 

2108 HO=VAL(IS$) 

2118 IF HO=@ THEN 2150 

2128 HOCHOD=ENOT HOHO) 

2138 IF HOCHO) THEN MID$S(T$,HO)=" " ELSE MID$CT 
$,HOO="H" 

2148 GOTO 2490 

2158 ‘holds klaar 

2168 HO=T$<h"HHH" 

2178 KL=sK1:60SUB 1410’schrijf 

2188 RETURN 

2199 ’ 

2299 ‘XX geen hold XX 

2219 T$="Insert, Play of Einde":GOSUB 1889’ bood 
schap 

2229 T$="?9?":KG=B:KL=8:K=i12:Y=12:COS="IPE" 
2239 GOSUB 1478’‘commando 

22408 RETURN 

ge 

2268 ‘XX draai wielen 

2278 AB=AB+1 

2288 COLOR 1 

22399 FOR I= TO AV 

2308 FOR J=i TO 74+EFNRNC4) 

2319 FOR K=I TO AV 

2328 IF HOCK) THEN 2360 

2339 VAKD=KZEENRN(100)) 

2340 LINE (110+8XK,96)-STEP(-6,-8),6,BF 

2358 PRINT #1,F$CUC(K)D 
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2360 NEXT K‚J,I 

2378 RETURN 

2389 ’ 

2399 ‘XX beoordeel situatie 

2499 5J=8:SM=G 

2418 FOR I= TO AV 

2428 IF V4I)>4 THEN 2500 

2438 ‘joker in venster 

2448 SJ=SJ+1 

2450 IF SJ=1 THEN Ji=I ELSE J2=I 

2460 IF DB THEN 2490 

2478 JG=J5-CIJTCVCIJD=0) 

2488 IF JGzAJ THEN GOSUB 1260 ELSE GOSUB 1209 
2498 GOTO 2539 

2598 ‘geen joker im venster 

2518 SM=SM-(V(I)=13) 

2528 IF I-SJ=síi THEN VizV(I) ELSE V2z=V(I) 
2530 NEXT I 

2548 ON SJ+1 GOTO 2559,2588,2649, 2679 

2559 ‘geen jokers 

2569 SF=VC2):SB=1-(V1=SF)-(V2=2SF) 

2578 GOTO 2699 

2582 ’1 joker 

2598 IF J1<>2 THEN SF=V(2):60T0 26419 

26098 IF VA<V2 THEN SF=V1i ELSE SFeV2 

2619 SB=2-(V1=V2) 

2629 IF JP AND (SB=2 OR J1<>2 AND WCSF,2)=10) T 

HEN SM=SM+1:SB=SB-1 

2638 GOTO 2690 

2649 ’2 jokers 

2659 SF=V1:5B=3:G0T0 2690 

2669 IF JP AND W(SF,2)<=20 THEN SM=SM+2:SB=1 
2678 ’3 jokers 

2689 SF=5:S5B=3 

2699 ‘hereken punten 

2708 IF SF=43 THEN WI=@:SM=SM+SJ ELSE WIe=W(SF,S 
B-1) 

2719 IF JP THEN WI=WI+40XSM ELSE WIs=Wll+SM 
2723 IF DB THEN WI=2XWI 

2739 IF JP4SF) AND SB=23 THEN GOSUB 109508’ jackpot 
gehaald 

2740 RETURN 

2750: © 

2768 ‘XX hold mislukt X% 
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2778 T$s"Mislukt!":X=97:Ye41 

2789 KL=8:G0SUB 1410’schrijf 

2798 FOR I=1 TO 2588 :NEXT 

2809 KL=9:GOSUB 1418’schrijf 

2819 RETURN 

2829 ’ 

2839 ’‘X% verwerk winst XX 

2349 T$="Gewonnen:":KL=10:X29J:'Y=41:GOSUB 1419’ 
sohrijf 

2850 IF HO OR GDC2 THEN T$2"":C$="" ELSE T$="Ho 
ld, ":CO$="H" ; 

2869 T$=T$+"Gamble of Collect" 

2879 GOSUB 1990’boodschap 

2889 CO$=CO$+"GC":TS=STRSCHIJ:KO=D:KL=10:X=129- 
4XLEN(TS$) : Y=50 

2898 GOSUB 4478’‘commando 

2900 LINE (93,414)-STEPC75,8),0, BF 

2918 HO=I$<h"H" 

2928 IF I$="C" THEN IN=WI:GOSUB 1580’tel op 
2939 IF I$="G" THEN GOSUB 2960:IF WI>9 THEN 284 
G’gamble 

2940 RETURN 

2958 ’ 

23969 ‘XX gamble XX 

2978 ON INTERVAL=5 GOSUB 34190 

2988 SOUND 1,14:SOUND 8,13 

2998 NO=55:R=11 

3908 INTERVAL ON 

3919 GL1)=2KWI:GC2DEWIJ2: GII IKWIJ2:GC4) =D 
3929 T$="Stop":GOSUB 1990'‘boodschar 

2038 We=4:STeNEE: I2FNRNC4) 

3049 KL=B:GOSUB 3259 

3958 Isl MOD 4+1 

3069 KL=15:GO0SUB 3250 

3078 IF INKEY$="S" THEN STzJA 

3088 IF ST THEN WaW+W/2+FNRN(2):R=SENCRIKCABSCR 
>-1) 
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3099 TIME=@ 

3108 IF TIME<W THEN 3198 

3118 IF W<125 THEN 3949 

3129 AG=AG+1 

3138 GW=GW+GI)-WI 

31440 UI=GCID 

3158 KL=@:GOSUB 3259 

3168 SOUND 8,8: INTERVAL OFF 
3178 RETURN 

3160 ’ 

3199 ‘XX sirene XX 

3288 IF NO+R<20 OR NO+4+R>459 THEN R=-R 
3219 NO=N0+R 

3228 SOUND @,NO 

3238 RETURN 

32408 ’ 

3250 ‘XX getal i van gamble XX 


3269 T$=STRSCGCID):KSGXCID-4KLENCTS): YerBYCI:GO 


SUB 1418’schrijf 

3278 RETURN 

3289 ’ 

3298 ‘XX einde van het spel XX 
3309 GD$="$$HHER. HH" 

3318 COLOR 15,4,4:SCREEN @ 
3329 PRINT"Kapitaal" 

3339 PRINT USING" Ingeworpen: 


3348 PRINT USING" Teruggekregen: 


3358 PRINT USING" Maximum tussenstand: 


3368 PRINT USING" Gewonnen door sokken: 


GW/4 

3378 PRINT 

3384 PRINT"Aantal holds: "AH 
3398 PRINT"Aantal keer gegokt: "AG 
3409 PRINT"Aantal beurten: "AB 


3418 RETURN 
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"+6D$; 
“+6D$; 
"+GD$; 


"+6D$; 


PAPAPAPEGAAI 


Papapapegaai is een erg eenvoudig competitiespel. Leuk om op een 
regenachtige dag te spelen met een vriend (vooral als die vriend iets ge- 
dronken heeft!). 

Aan het begin is de computer zo onbeleefd om u te vragen: 


BEN JE KLAAR PAPAPAPEGAAI? 


Nota Bene, hij noemt u papapapegaai! Als u een willekeurige toets in- 
drukt laat hij onmiddellijk een letter zien. U moet diezelfde letter intoetsen 
en wel zo snel u kunt. Daar u iedere letter opnieuw moet intypen bent 
u werkelijk een papegaai! Het spel wordt automatisch beëindigd na ca. 
10 seconden en de computer toont uw score. 

Hoe goed bent u als papegaai? Ga nu een wedstrijd met uw vrienden 
aan en tracht de titel „meesterpapegaai’' te winnen. 

(Mijn record is 19 - ik geef les aan papegaaien!) 
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18 ‘MSX - Papapapegaal 

ze 5 

38 DATA erg slecht,slecht,zeer matig,matig,probk 
eer het nog eens 

49 DATA al wat beter,je leert het al,soed,zeer 
goed 

54 DATA uitstekend, fantastisch,genoeg gespeeld 
nu,beter kan niet 

63 DIM OP$C12):FOR I=8 TO 12:READ OP$CID:NEXT 
1 

38 DUERND(-TIME/2) 


90 SCREEN 9 
189 PRINT" KAKAK . 
1108 PRINT" KKXKKKM 


129 PRINT" KRUK KAKKKKK 
138 PRINT" KXXXXXAKXXNX 
148 PRINT" X KHAKMAN 


158 PRINT" KAKK KK 

169 PRINT" KAAK HK 

178 PRINT" XXX 

189 PRINT" KHXKKKX 

198 PRINT 

298 PRINT" De papapapegaai 
218 PRINT 


229 PRINT" Ben Je klaar, papapapegaai®? 
238 PRINT 

2408 IF INKEY$=""THEN 249 

250 TIME=@ 

268 L=INT(9T7+26KRNDCLDD 

278 PRINT CHR$CL); 

288 AZASCLINPUTS$C1)) 

298 IF A<>L AND A<C>L-32 THEN 289 
308 SC=2=5C+1 

3140 IF TIME<390 THEN 269 

328 PRINT:PRINT 

338 PRINT"Score:"SC 

348 PRINT OP$CSC) 
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DUINDIGT 


Dames en heren, de paarden zijn gestart! Red Arrow maakt een goede 
start … Blondish boy geeft zijn jockey wat problemen … en daar is de 
beroemde Spanish lady aan de binnenkant van de baan. Wat een span- 
ning en dan zijn we nog maar net begonnen! 

De eerste hindernis … Kees Verkerk heeft nu de leiding overgenomen; 
op de hielen gevolgd door Speedy Conzales, … Duindigt is een compu- 
ter paardenrace. Bij dit spel kunnen niet zoveel paarden deelnemen als 
in werkelijkheid. We spelen hier steeds met 6 paarden die ieder 5 afmat- 
tende ronden moeten lopen, u zult echter wel weten dat computer paar- 
den werkelijk onvermoeibaar zijn. 

U kunt nu inzetten. Zolang u geld heeft kunt u wedden. Een winnend 
paard levert vijfmaal de inzet op 

Na het RUN commando zien we: 


Speler 1: u kunt nu inzetten 
Inzetbaar kapitaal: 250 
De race wordt gelopen door: 


1) Henry Buitenzorg 
2) Speedy Conzales 
3) Kees Verkerk 

4) Andre van Duin 
5) Quicksilver S 

6) Vanessa 


U heeft: … 
Hoeveel zet u in op paard … 


Direkt nadat u uw inzet heeft gedaan verschijnt de renbaan op het 
scherm, met de paarden aan de start. 

Als u niet op het verkeerde paard gewed heeft wordt vijfmaal uw inzet 
aan uw vermogen toegevoegd. 
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‘MSX -— Duindigt 


DEFINT A,6,I,L,S,T 
DEF FNJACXS)=INSTR("Jj",LEFTSC(X$,1D)D0 
DU=RNDC-TIME/2) 


‘XK hoofdprogramma XX 
GOSUB 628“ init 
GOSUB 814’ wedden 
GOSUB 198’veld 
GOSUB 1299'race 
GOSUB 1478’‘einde race 
GOSUB 1600’‘uitbetaling 
INPIJT"Nog een race";AN$ 
IF FNJACAN$) THEN 99 
GOSUB 1819’‘einde spel 
END 


(KK veld XX 

COLDR 15,2,2:SCREEN &,2 
‘sprites 

RESTORE 479 

FOR 5=8 TO 2 

SP$=" u 

FOR I=i TO 32 

READ W$ 
SP$=SPS+CHRSCHALL" E&H" ASD) 
NEXT I 

SPRITES(S)=SP$ 

NEXT S 

‘renbaan 

FOR I=1 TO AP 

LINE (6,301) -STEP(256,9),6,BF 
LINE (165,30XI)-STEPC(141,4),2,BF 
PSET (18,14+39X1),6 

PRINT #1,PN$CID 

NEXT I 

‘paarden 

FOR I=1 TO AP 
VPACI)=30KI-14:HP(IJ=5:SCIJ=G 
VvCIj=0 

PUT SPRITE LL, CHPSI), VPACTII, LS CHI 
NEXT I 

RETURN 


718 


728 
730 
748 
750 
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‘staand paard 

DATA 90,90,1C,7F,BF,BF,BF, 33 
DATA 69,40,49,64,29,409,49, 94 
DATA G8,1C,7E,FF,FB,FS,FO, 30 
DATA 29,29,29,30,19,96,00, 99 
‘rennend paard 1 

DATA 68,06,16,7F,BF,RBF,BF, 33 
DATA 68,46,40,C9,50,960,06, 90 
DATA 48,1C,7E,FF,FB,F8,FQ, 30 
DATA 19,18,08,9C,04,600,009, 909 
‘rennend paard 2 

DATA 68,02,99,1C,7F,BF,BF, BF 
DATA 33,18,9C,96,02,99,00, 99 
DATA 89,08,1C,7E,FF,FB,F8,FO 
DATA 20,60,49,C0,30,00,49, 99 


‘XK initialisatie 4% 
BS$=CHR$C8) 

OPEN "GRP:" FOR OUTPUT AS #1 
AP=6:TR=5: JA=-1:NEE=G 


DIM PN$CAP),HPCAP),UPACAPD,SCAP),VCAP),ARCA 


RESTORE 719 
FOR I=1 TO AP 
READ PN$CI) 
NEXT I 


DATA Henry Buitenzorg, Speedy Gonzalez,Kees 
Verkerk 


DATA Andre van Duin,Quicksilver S,Vanessa 


DIM L{2) 
L{B)=6:L1N=5:LC2)=8 
INPUT"Aantal spelers";AS 

IF AS<1 THEN 759 

DIM WCAS,AP),GDCAS) 

FOR S=1 TO AS:6D£5)=250: NEXT 
RETURN 


‘XX wedden #X 

SCREEN 9 

FOR S= TO AS 

FOR I=1 TO AP:WCS,I)=0:NEXT 
CLS 


PRINT"Speler"S;B5%", u kunt nu inzetten." 
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878 PRINT"Inzetbaar kapitaal:"GD{S) 
8288 PRINT 

828 PRINT"De race wordt gelopen door: " 
900 FOR I=1i TO AP 

910 PRINT I;BS$") "PN$CIJ 

920 NEXT I 

930 PRINT 

940 PRINT"CRETURN] om te racen” 

958 LOCATE 8,7+AP 

960 PRINT"Op welk paard wedt u "BS$;BS$;B5$; 
978 I=0:INPUT I 

980 IF I=6 THEN 1110 

999 IF I<4 OR I2AP THEN 950 

1989 IF W£S,I)20 THEN 958 

1818 LOCATE 9,19+AP 

1828 PRINT"U wedt op: "PN$C(I);TAB(37) 
1938 I2=8:INPIJT"Hoeveel zet u in";IZ 
1440 IF IZ2=0 THEN 950 

1856 IF I2<@ THEN 1019 

1968 IF GD(S)<IZ THEN 1919 

1979 GD(S)=GPLS)-IZ: WES, I)=12 

1498 LOCATE €L,STIGPRINTENZOEE TZ 
1098 LOCATE 19,4:PRINT GDCS) 

1188 GOTO 959 

1119 NEXT 5 

1129 RETURN 


1148 ‘aeluid 

1158 SOUND 7,7 

1168 SOUND 6, 2BRND(1) 

1179 PLAY"SSMSOGLBARBARS" 

1188 RETURN 

4198 ’ 

1299 ‘XX race X% 

1219 KLXA=NEE 

1223 FOR I=1 TO AP:ARCIJ=8: NEXT 
1239 FOR I4=4 TO AP 

1249 5=C5CI)+1) MOD 3 

1259 V=VCIJ+RNDC1D-,5 

1268 H=EHPCIJ+V+L CS) 

1278 ON S+41 GOTO 1280,1320,1330 
1289 IF Hé=152 THEN 1330 

1298 IF Hé<=169 THEN H=i52:V(I)=0:G0T0O 1330 
1348 IF Hé<=175 THEN H=164:S=1 
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13148 
1320 
13349 


1340 
1359 
1368 
1378 
1388 
1390 
1400 
1419 
1420 
14308 
1448 
1450 
1469 
1478 
1488 
1494 
1509 
1518 
1528 
1538 
1548 
1559 
1568 
1578 
1584 
1599 


6GOTO 1330 

IF H>458 AND HC165 THEN S=2 

IF H>250 THEN H=H-250:ARCID=ARCID +1: KLA=AR 
CIJ=TR:GOSUB 1428 


PUT SPRITE I,CHPCIJ,VP4CIJ),4,8CI) MOD 3 
SCIJ=S:HPCID=H 

IF Vj=@ AND V4=3 THEN VIDS 

NEXT I 

IF NOT PLAY(8) THEN GOSUB 1149’geluid 

IF NOT KL4 THEN 1230 

RETURN 


‘XK ronde-doorkomst #% 

LINE (229,304I+8)-STEP(-24,-7),6,BF 
PRINT #1,USING"##&#";ARCID 

RETURN 


‘KX einde race XX 

AF=} 

COLOR 4 

FOR I= TO AP 

PUT SPRITE I:CHP6IJ,;VPACTI 2,1, 3E) MOD & 
IF ARCIJCÈTR THEN 4569 
AF=AF+1 

PSET (18,144+30%10,6 
PRINT #1,PN$CIÒ 

NEXT I 

IF INKEY$="" THEN 1579 
RETURN 
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1683 ‘uitbetaling 

1618 COLOR 15,4,4:SCREEN 9 

1628 FOR I= TO AP 

1638 IF AR&I)=TR THEN PRINT PN$CI)" heeft gewon 
nen.” 

1640 NEXT I 

1658 IF AF>1 THEN PRINT"Dead heat van"AF"paarde 
mi 

1668 PRINT 

1678 PRINT TABC9)" Winst: Verlies: Kapitaal: " 
1688 FOR S= TO AS 

1693 W=G:1I2=0 

1798 FOR I=4 TO AP 

171% IZ=IZ+W(S, ID 

1728 IF ARCIJ=TR THEN WaWtCAP-1KU(S, 1) 

1733 NEXT I 

1748 GDCS)=GD(S) + 

1758 PRINT" Speler"S;CHR$C8)": *; 

17608 PRINT TABC44);W;TAB(42);IZ;TAB(26); GDS) 
1778 NEXT 5 

1789 PRINT 

1798 RETURN 

1899 ’ 

1819 ‘einde spel 

1829 CLS 

18309 FOR S=1 TO AS 

1848 PRINT"Eindkapitaal van speler"S;BS$":"GDCS 
) 

1850 NEXT S 

1864 RETIJRN 
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HET NIET ZO VERSCHRIKKELIJKE KLEURENPROBLEEM 


Een tweedimensionale kubus? Onmogelijk zou u natuurlijk denken. 
Toch gelijkt dit spel in veel opzichten op de zo befaamde kubus van 
Rubik. 

Als het spel begint zien we 25 gekleurde vierkantjes die ogenschijnlijk 
willekeurig zijn verspreid op een bord van 5 x 5. De rijen, respectieve- 
lijk kolommen zijn als volgt genummerd: 


a B WW ND 


6 fran 0 


De horizontale rijen zijn dus genummerd van 1 tot 5 en de vertikale rijen 
met 6, 7, 8, 9 en 0. Als we nu een rijnummer opgeven verschuiven alle 
vierkantjes in die rij één positie op. In een horizontale rij schuiven ze naar 
rechts en in een vertikale rij naar beneden. Als een vierkantje aan één 
kant als het ware van de rand af zou vallen verschijnt het weer aan de 
andere kant: 


el le Mn 


In een horizontale rij, of 
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Ek ok 


In een vertikale rij (kolom). 


Het doel van dit alles? Wel, we moeten de gekleurde vierkantjes in een 
zodanige positie trachten te brengen dat vijf horizontale rijen ieder met 


één 


bepaalde kleur ontstaan. 


Wellicht zou het motto van dit spel kunnen zijn „sommige dingen lijken 
gemakkelijker dan ze zijn!” 


ed 


‘MSX-kleurenperobleem 

‘Arend Rensink 

DEFINT A-Z 

DEF FNRNCKOECINTCA+KKRNDCADD 
DUMERNDC-TIME) 


‘Kk hoofdprogramma XX 
GOSUB 189’initiatie 

GOSUB 358’‘bord 

GOSUB 498’schudden 

ZET=INSTR(" 1234567890", INKEYS) -1 
IF ZET<4 THEN 129 

GOSUB 610’zet 

GOTO 129 


‘XX initatie XX 

SCREEN 1 

COLOR 15,1,1 
B1$=CHR$C1BI+STRINGSCI, B) 
B2$=STRING$C3, 30) 

FOz5 


AN SEEN \ 1 | 


en 


DIM BCFO,FO),BLK$CFO) 

FOR RIJ=1 TO FO 

READ TK,KL 

BS=STRING$(3, TK) 

VPOKE BASEC6)+CINT(TK/B),KL+&H10 
BLKSCRIJ)D=B$+B1$+B$+B1$+B$+E1$+B$+B28 
FOR KOL=1 TO FO 

BRIJ, KOL)=RIJ 

NEXT KOL,RIJ 

RETURN 

DATA 145,12,158,4,174,6,203,10,241,13 


‘EK bord KX 
LOCATE 4,6,9 

FOR KOL=i TO FO 
PRINT TABC3+34KOL);(5+KOL) MOD 19; 
NEXT KOL 

FOR RIJ=1 TO FO 
LOCATE @,4KRIJ,G 
PRINT =* SR: 
FOR KOL=4 TO FO 
GOSUB 56B‘vlak 
NEXT KOL 

NEXT RIJ 

RETURN 
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430 
509 
519 
520 
530 
540 
550 
560 
570 
580 
530 
640 
610 
640 
650 
660 
679 
680 
690 
780 
716 
729 
730 
740 
750 
760 
778 
780 
790 
800 


46 


‘XK schudden XX 
FOR KR=1 TO 20 
ZET=FNRNC10) 
GOSUB 610’zet 
NEXT KR 

RETURN 


‘KX vlakje XX 

LOCATE 3+34KOL,44RIJ-1,0 
PRINT BLK$CB(RIJ,KOLDD); 
RETURN 


‘XX zet uitvoeren XX 

IF ZET>5 THEN 730 

‘rij bewegen 

RIJ=ZET 
BCRIJ,O)=BÁRIJ, FO) 

FOR KOLsFO TO 1 STEP =4 
BCRIJ,KOL)=BERIJ, KOL -1) 
GOSUB 569’vlak 

NEXT KOL 

RETURN 

‘kolom bewegen 
KOL=ZET -5 
B(@,KOLD=BCFO, KOL) 

FOR RIJ=FO TO 4 STEP -4 
BCRIJ,KOL)D=BERIJ-4, KOL) 
GOSUB 560’vlak 

NEXT RIJ 

RETURN 


QUI VIVE 


Op je qui vive zijn wil zeggen waakzaam zijn. Dit spel wordt Qui Vive ge- 
noemd omdat je altijd alert moet zijn op winnende situaties. De regels 
zijn in feite opvallend eenvoudig, maar het programma dat nodig is om 
deze regels te verwoorden” is echter allesbehalve eenvoudig. Met 
recht is het voor ieder spelletjesprogrammeur een uitdaging om een der- 
gelijk programma op te stellen, of uitgaande van dit programma verbe- 
terde strategieën te ontwikkelen. Qui Vive is ontworpen door Eugene de 
Wolf en het spel wordt gespeeld op een 5 x5 bord. Elke speler heeft 5 
stenen en moet trachten ze zodanig te plaatsen dat één van de 7 sym- 
metrische patronen ontstaat en wel: 


een horizontale lijn kb 4 OR 8 F 


een vertikale lijn à 
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een diagonale lijn 


een recht kruis 


een scheef kruis 


een vertikale vleugel 
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Ws 
ee, 
dr 
dn 
| 
kf 
din 
Ne, 
kn 
e ri 
d. 


een horizontale vleugel é zi 


Aan het begin van het spel is het bord leeg en worden om de beurt de 
stenen geplaatst. De velden op het bord worden als volgt aangeduid: 


2 B WM B 


B 7 36 1 20 


OKOKOMOMRS, 


el 22 23 24 25 


Om een steen op een bepaald veld te plaatsen hoeven we slechts de 
coördinaten van dat veld in te voeren; bijvoorbeeld voor veld 21 toetsen 
we al in, voor veld 12 b3, etc. Uw stenen worden aangeduid met S en 
die van de computer met C. 

Als alle 10 stenen eenmaal op het bord geplaatst zijn en niemand heeft 
nog gewonnen, gaat het spel verder door ombeurten een steen te ver- 
plaatsen en zo te trachten een winnende positie te bereiken. 
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‘MSX == Qui Vive 

DEFINT A-Z 

DEF FNJACXS)=INSTR("Jj",LEFT$CX$, 1) 
DEF FNRNCXHOZINTCA+K4RNDCHD DD 
DUZFNRNC-TIME/2) 


‘Xx hoofdprogramma XX 
PRINT"Een momentje a.u.b." 

GOSUB 330’ init 

INPIJT"Wilt u beginnen";AN$ 

IF NOT FNJACAN$) THEN PP=13:G0T0 184 
GOSUB 2640 ‘situatie 

GOSUB 19560’‘speler zet 

PRENT "IK OBA 

GOSUB 1440’‘evaluatie 

IF SW THEN PRINT"U heeft gewonnen":G60OT0 219 
GOSUB 1240 ‘computer zet 

IF NOT CW THEN 149 

PRINT"IKk heb gewonnen" 

INPUT"Noa een keer ";AN$ 

IF FNJACAN$Ò THEN RUN 

END 


'KX geef punten voor dd XX 

D1=B{DVCPI,4)) OR BCDVCPI,2)) 
D2=BADVEPI,3)) OR BEDVAPI,4)) 
GV=BADVEPI, 5) )+BCDVEPI,6))I+BCDVEPI, 7) 

C=Di AND D2 AND 10:P=D1 AND D2 AND 1 
P=GV+D1+D2+10X(6GV=38 AND C=0)+(GV=3 AND P=g 


RETURN 

‘KX initialisatie XX 

JA=-1:NEE=G 
AE=42:AD=108:AFM=5: AV=AFM" 2: A5=5 
AP=16 


DIM EDCAE,AS),EECAE) 

DIM DDCAD,4),DVCAP, 9) 

DIM CSCAS),GSCASI,BLAV), CCAVD 
‘enkele dreigingen (ed) 

FOR I=i TO RE 

READ X$ 

FOR J=1 TO AS 


EDCI,J)=1+ASCHMIDSCHS, JIJ -ASCCHA") 
NEXT J,I 

‘vleugels: “VC 

DATA UGMSY,PLHNT,KGCIO 

DATA AGMIE,FLRNJ,KOWUSO 

DATA AGMQU,BHNRV, CIOS 

DATA EIMSY,DHLRX, CGKOM 

‘maalteken: Xx 

DATA ACGKM,BDHLN, CEIMO 

DATA FLHPR,GIMQS, HJNRT 

DATA KMQUW,LNRVX, MOS WY 

‘plusteken: + 

DATA BFGHL,CGHIM, DHIJN 

DATA GKLMG,HLMNR, IMNOS 

DATA LPQRV,MORSW,NRSTX 
‘diagonalen: 7 

DATA AGMSY,EIMOU 

‘kolommen: : 

DATA AFKPU,BGLQV, CHMRW 
DATA DINSX,EJOTY 
rijden: = 

DATA ABCDE,FGHIJ,KLMNO 
DATA PORST, UVWXY 


‘dubbele dreigingen (ddò 

FOR I=1 TO AD STEP 12 

READ X$ 

FOR J=8 TÔ 11 

FOR K=8 TO 1 

L=2kJ+K+1 

DD(I+J,K)=1+ASCHMIDSC(HS, 2KJ+K#1ID-ASCCL"D 
NEXT K‚J,1 

RETURN 


DATA"171:1A1CL1EAM104P2>292B2J" 
DATA" 32343=3?3G4T74:4=474A4G40" 
DATA"4PSASBSDSJEIELECEEEMT=TA" 
DATA" 7CTITOTPSDBBEDEJIPIEIK: 7" 
DATA“ :AZE:KEOMPS RDJ LEEG" 
DATA"=G=I=0dFDHdJ?GPK?PPFDJJL" 
DATA"AGAIAKAMAOAPBHBJENCICMCP" 
DATA"DJDLDNEKEMEOFRFWGSGWHTHI" 
DATA" IRIXJSJAKTKXLRLYMSMENTNY" 
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(EK dubbele dreiaina-velden XX 
TC=5:TN=i 

FOR I=1i TO AS 
CCEDCDD(DD, 6), I))=1 

NEXT I 

FOR I=zi TO AS 
ED=ZEDCDD(DD, 1), 1) 

IF CCED)=1 THEN 976 
DUCPI,TNJ=ED:TN=TN+1:G0OT0 989 
DV4PI,TCJ=ED:TC=TC+1:CCED)=0 
NEXT I 

POR Ts TO AS 


ED=EDCDD(DD,8), 1) 
IF CCED)=1 THEN DV(PI,TND=ZED:TN=TN+1: CCED) 
NEXT I 


RETURN 


‘EX speler zet 4% 

IF SS{5 THEN S5=85+1:60T0 1489 
PRINT"Weghalen van";:6G0SUB 1169’ invoer 

IF X=0 OR BCX)4D1 THEN PRINT"Onmogelijk.": 
1079 

A1=ä 

PRINT "Neerzetten op";:GOSUB 1160’ invoer 

IF X=8 OR BCX)<0 THEN PRINT"Onmogelijk.": 
1140 

BCX1)=0:B(4)e=1 

GOSUB 2630’situatie 

RETURN 


1169 
1178 
1189 
MOD 5 
1190 
1208 
1210 
1220 
1230 
1248 
1259 
1260 
1279 
1230 
1299 
1300 


‘KK voer coordinaten in XX 
INPUT €0$ 
L=i+CINSTRC" abcdeABCDE",LEFT$(COS$,1))-2) 


C=INSTRC" 54321",RIGHT$CCOS, 1) -1 
IF L<B OR C<0 THEN 11768 
KeSk(C-1)+L 

RETURN 


‘KK computer zet 4% 
B{PFP)=10:B(PT)=0 

GOSUB 2639 ’‘situatie 
PRINT" Ik hek gezet "; 

IF £S4AS THEN C5=C5+1:CS(CH)=PP:GOTO 1340 
PRINT" van "5 

X=PT:GOSUB 1390‘coordinaten 
FOR CI=zíi TO AS 

IF CSCCIJaPT THEN CSCCIJ=PP 
NEXT CI 

PRINT"naar "; 

X=PP:GOSUB 1398 ’‘coordinaten 
PRINT 

RETURN 


‘kk coordinaten 4% 

PRINT MIDS$C*"ABCDE", CX-4) MOD 541,1); 
PRINT MNIDSK 54324", CHU NAS AAN 7 
RETURN 


‘KX computer-evaluatie XX 
FOR I= TO AS:GSCI)=NEE: NEXT 
GOSUB 1690’‘eigenaar van ed’s 
IF SW OR CW THEN RETURN 
GOSUB 2108‘ interessante dd’s 
MP=g:N1=0:PP=0 

BVv=i:EVz=AV 

IF V2>0 THEN BV=V2:EV=VZ 

FOR CP=BV TO EV 

IF B4CP) <0 THEN 1660 
‘probeer een zet 

BCCP)=10 

IF CS45 THEN GOSUB 2386:G0T0 16408 
FOR CI=1 TO AS 

IF GSCCI) THEN 1634 
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CT=CS(CIJ:BCCT)=0 

GOSUB 2398 ‘strategische waarde 
BACT)=10 

PLAY" OSL64C" 

NEXT CI 

B(CP)=0 

PLAY"O4LE4C" 

NEXT CP 

RETURN 


‘XK eigenaar van ed’s XX 

V2=0:SW=NEE: CW=NEE 

FOR I=1i TO CS:6SCID=NEE: NEXT 

FOR ED=1 TÔ AE 

EECED)=G 

P=BCEDCED,4))+BCEDCED, 2))+BCEDCED, 3))2+B(ED 


CED, 4) )+BCEDCED, 52) 


1758 
1768 
1779 
1789 
1799 
1308 
1818 
1829 
18340 
1849 
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IF P MOD 1020 THEN EECED)=16 

IF P>2 AND P<16 THEN EECED)=1 
SWeP=5:CH=P=40 

IF CW THEN GOSUB 1858‘winnende zet 

IF P=4 THEN GOSUB 1959’verplichte zet 
IF P=14 THEN GOSUB 2910’‘gepend stuk 
IF SW OR CW THEN ED=AE 

NEXT ED 

RETURN 


, 


1558 
1360 


2258 


‘EK winnende zet 4% 

GOSĲUB 1959 ‘verplichte zet 

PP=VZ 

FOR I=1 TO C5:GSCI)=NEE: NEXT 
GOSIUB 2019 ’‘gepende stukken 

FOR I=i TO C5 

IF NOT G6G5CI) THEN PT=CS(I):I=CS 
NEXT I 

RETURN 

"KK verplichte zet #% 

FOR I=i TO 45 

IF BLEDCED, I»)=8 THEN VZ=EDCED, 1): I=AS 
NEXT I 

RETURN 

‘XK gewend stuk #% 

FOR I=1 TO AS 

IF BCEDCED,I))<>10 THEN 2879 
FOR J=1 TO CS 

IF CSCJI=EDCED,I) THEN BS(Ji=JA: JCS 
NEXT J 

HEXT I 

RETURN 


‘XK zoek interessante dd’s XX 

NE=G:NP=g 

FOR I=1i TO AP 

DVUCI,8)=-1 

DVCI,2)=0 

NEXT I 

FOR DD=8 TO AD 

PI=1 

FOR I=1 TO AP 

IP DUCISIEDVERI,S) AND DMUCT, ICH THEN: PI 


NEXT I 

EZEECDDCDD,8)) AND EECDDSDD, 1) 

IF E=8 THEN 2279 

GOSUB 880’dd-velden 

GOSUB 259‘dd-punten 

IF P&24 AND P£214 AND CE=1 OR PC=DVSPI,8) 


THEN 2279 


226g 


DVCPI,9)=E:DVCPI, 8) =P 
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2278 NEXT DD 

2288 RETURN 

2298 ’ 

2398 ’XX strategische waarde XX 
2318 M=0:N2=0 

2329 FOR PI=4i TO AP 

2338 IF DV4PI,9)=0 THEN 23940 
2349 GOSUB 259’dd-punten 
2358 IF DVCPI,9)=1 THEN 2380 
2360 IF P=MC THEN N2=N2+1 
2374 IF P>MC THEN MC=P:N2=1 
2380 IF P=z4 THEN PI=zAP 

2390 NEXT PI 


0) 


SS 
3 SG GG 


2408 IF PP=3 THEN 2439 

2410 IF P=4 OR MC4MP THEN RETURN 

2428 IF MC=MP AND (N2<N1 OR NieN2 AND RNDC40) <6 
> THEN RETURN 

2420 MP=MC:NLeEN2:PP=CP:PT=CT 

2440 RETURN 

2450 * 

2468 ‘XX teken bord XX 

2478 CL5:PRINT:PRINT 


2488 PRINT" REEN 
2499 PRINT" gepepntjkjef * 
Ken FRIDT” Ol EL Ir 
2518 PRINT" gpenpenpeapanpg: 7 
zoa PRINT” Af FF Ere 
2530 PRINT" pepe 
2048 PRINT" SE EE NE Ja 
2558 PRINT" gpeepnpajenng. * 
E38 PRIEST” ATEA EET 
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2570 PRINT" pen trnpepe 


KAn PRINT Al 5 KA 1 547 
2598 PRINT" geejansfveajnajenjk 
2609 PRINT" ABCDE * 
2618 RETURN 

2629 ’ 


2634 ‘XX teken situatie XX 
2640 GOSUB 2468’bord 

2659 FOR I= TO AFM 

2668 FOR J=1i TO AFM 

2679 LOCATE 2+24J,2+2X1 
2680 B=BCSKC(I-1)+J) 

2698 IF B=10 THEN PRINT"C"; ELSE IF B=4 THEN PR 
INT SS"; ELSE PEENTS 25 
2708 NEXT J,I 

2718 LOCATE 8,16 

2728 RETURN 


57 


S.T.M. 


Een van de interessantste onderwerpen uit de psychologie is ongetwij- 
feld ons geheugen. De functie van het geheugen wordt wel eens om- 
schreven als „te reageren op actuele situaties op grond van ervarin- 
gen”. We laten deze definitie maar snel voor wat hij is. Waarom vergeten 
we sommige dingen en waarom herinneren we ons bepaalde andere 
zaken? We kunnen iemand die we jaren niet gezien hebben onmiddellijk 
herkennen, tevens kunnen we een melodie herkennen waarvan we 
slechts een paar noten horen, terwijl we aan de andere kant een tele- 
foonnummmer vergeten. 

In de wetenschap worden gewoonlijk twee typen geheugen onderschei- 
den nl. het korte termijn geheugen (Short Term Memory of S.T.M.) en 
het lange termijn geheugen (Long Term Memory of L.T.M.). Wilt u hiero- 
ver meer weten dan kunnen we u het boek aanraden: Introduction to 
psychology van Hilgard en Atkinson. 

Dit typische competitie spel test ons korte termijn geheugen (S.T.M.) en 
wel door zeer kort verschillende letters te tonen die we dan moeten ont- 
houden. U zult stellig merken hoe moeilijk het wel is veel letters te ont- 
houden. Ga nu met uw vrienden of familie na wie de grootste opslagbak 
onder zijn pet heeft…. 

Op het scherm krijgen we eerst het volgende „menu'’ te zien: 


WILT U SPELEN MET: 

1. LETTERS? 

2. CIJFERS? 

3. ALLEEN MET O EN 1 

4. OF WILT U OPHOUDEN? 


We kunnen nu de keus maken door 1, 2, 3 of 4 in te typen en vervolgens 
kiezen we een moeilijkheidsgraad. Stel dat we nu 1 intypen, we kiezen 
er dan kennelijk voor met letters te spelen. Een bepaalde letter zal 
slechts even op het scherm zichtbaar zijn. Deze letter moet u intypen. 
De computer zal vervolgens 2 letters tonen die we ook moeten intypen, 
vervolgens 3, enz. Het is duidelijk dat hoe groter het aantal letters wordt 
hoe moeilijker het zal zijn om alles te onthouden. 

Hoeveel kunt u onthouden? Kunt u ons record van acht letters 
verbeteren?! 
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18 ‘MSX =- STM 


38 DEFINT A-Z 
48 DEF FNRNCXO)E4+INTCHARNDCXDD 
58 DU=FNRNC-TIME/2) 


78 CLS 
83 PRINT"Wilt u spelen met:" 

98 PRINT" 1, Letters?" 

108 PRINT" 2. Cijfers?" 

119 PRINT" 3, Alleen B of 12" 

128 PRINT" 4, Of wilt u ophouden?" 

138 ON INSTR("1234",INPUT$C(4)) GOTO 158,169,179 
‚4098 

149 ’ 

159 0OG=64:AAz=26:GOTO 190 

169 0G=47:AA=10:G0T0O 199 

178 OG=47:AA=2 

188 ’ 

198 PRINT"Geef RETURN om te beginnen” 

249 IF INKEYSCHCHR$C(13) THEN 299 ‚ 

218 AR=AR+1 pn ent 
223 Ri$="" (A 

239 FOR I= TO AR ï 
248 TE&=CHRECOGHFNRNCAAD) 
258 PRINT CHR$(8)" "T$; 
269 R1i$=R1$+T$ 

270 FOR J=4 TO 358:NEXT 
289 NEXT 1 

238 PRINT CHR$C8)" " 


318 INPUT"Antwoord”";AN$ 
328 IF ANS$=aR1$ THEN 210 
338 PRINT"Fout'!” 
3408 PRINT"Het was: "R1$ 
358 PRINT"Aantal keer goed geraden: "AR-1 
369 PRINT"Sla een toets aan" 
378 ANS$=INPUT$C1) 
388 RIN 

/ 


408 END 
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VAN 5 NAAR 0 


Dit uitdagende spel zagen we voor het eerst op een Casio rekenmachi- 
ne. Het is werkelijk een boeiend spel dat zeer veel logisch denkwerk 
vereist. 

Het spel wordt gespeeld op een bord met 9 vakken. Deze zijn als volgt 
genummerd: 


Ì 2 3 
4 6 
rd 8 9 


Door ieder cijfer kunnen we nu een horizontale en een vertikale lijn trek- 
ken en deze lijnen zullen zo in totaal nog 4 andere vakjes kruisen. Bij- 
voorbeeld de lijnen getrokken door positie 4 zullen ook de posities 1, 5, 
6 en 7 kruisen. 


De posities op het speelbord worden ogenschijnlijk bezet door een wille- 
keurig patroon van cijfers tussen O en 5. Als u nu een van de posities 
aangeeft. Met behulp van de cursortoetsen kunt u naar de gewenste po- 
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sitie toegaan. Vervolgens geeft u RETURN. Het gevolg is dat alle cijfers 
op zowel de horizontale als de vertikale lijn verhoogd worden met 1 (be- 
halve 5, dat wordt 0). Bijvoorbeeld, als we uitgaan van 


2 2 4 
1 | 2 
1 el 4 


en we geven vakje 4 aan, dan zal het bord veranderen in 


3 2 4 
2 0 3 
2 5 4 


0) 0) 0 
0) 0) 0) 
0 0) 0) 


18 ‘MSX - Van 5 naar OQ 

29 ‘Arend Rensink 

30 

198 DEFINT A-Z 

119 DEF FNRNCX)=4+INTCXHKERNDCKH)) 
129 DU=FNRN(-TIME/2) 
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‘XX hoofdprogramma XX 
GOSUB 498’ init 

GOSUB 688’bord 

GOSUB 1198’‘situatie 
GOSUB 849’ invoer 
GOSUB 1090‘berekening 
GOSUB 1190’‘situatie 
IF NOT KLAAR THEN 240 
GOSUB 1298’‘einde 

IF NIEUW THEN RUN 

END 


‘Xx initiatie XX 
WAAR=-1 

DIM B£3, 3) 

FOR TIisí TO 45 
RIJZFNRN(3) : KOL=FNRNC(3) 
GOSUB 1090 ’‘berekening 
NEXT TI 

RIJ=1:KOL=4 

COLOR 15,4,4 

SCREEN Q 

RETURN 


‘Kx bord XX 
PRINT:PRINT:PRINT:PRINT 
PRINT „openge * 
PRENT,” | | | al 
PRINT,” | | | a 
PRENT, SI OJ Of 14° 
PRINT," pommmmmafemmmnfpeemnf * 
PRINT," | | | j 
PRINT, * | | | a 
PRINT, “| | | r 
PRINT zn pmen 7 
PRENT; | | | Hi 
PRENT," | | | je 
PRINT, "| | | hed 
PRINT , "mmm 
PRINT:PRINT TAB(43) "Aantal 
RETURN 


zetten: 
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‘KK invoer XX 

LOCATE 412+44KOL,2+4KRIJ, 1 
DIR=ZASCCINPUT$C1)) 

IF DIR=13 THEN 899 
RIJ=RIJ+CRIJD4 AND DIR=30) 
RIJ=RIJ-CRIJC3 AND DIR=31) 
KOL=KOL+(KOLDL AND DIR=29) 
KOL=KOL-(KOLC3 AND DIR=28) 
GOTO 818 

ZET=ZET+1 

LOCATE 27,18,0 

PRINT ZET; 

RETURN 


‘XX bereken situatie XX 
BCRIJ,KOL)=(BCRIJ,KOL)-41) MOD 6 
FOR I=4 TO 3 
BCRIJ,ID=CB(RIJ,I)D+1) MOD 6 
BCI,KOL)=CB(I,KOLD+14) MOD 6 
NEXT I 

RETURN 


‘XK laat situatie zien XX 
KLAAR= WAAR 

FOR I=1i TO 3 

FOR J=4 TO 3 

LOCATE 11+44J,2+4X1,0 
PRINT BCI,J); 

KLAAR=KLAAR AND BCI,J)=0 
NEXT JI 

RETURN 


‘XX einde XX 

LOCATE 5,20,0 

PRINT"U heeft de oplossing gevonden," 
PRINT TAB(13) "Nog een keer? "; 
NIEUW=INSTR("Jj",INPUT$C4))>0 

RETURN 


ESCHER 


Het zo boeiende werk van de Nederlandse graficus M.C. Escher 
(1902 - 1972) is gebaseerd op symmetrie en wiskundige schema's en 
het is wellicht dit feit dat zovele computerprogrammeurs aanspreekt. 
Met behulp van dit programma kunt u uw eigen „Escher'' maken en het 
aardige is dat het is gebaseerd op dezelfde principes die Escher ge- 
bruikt. Laten we als voorbeeld eens het volgende patroon bekijken: 


Deze voorstelling is gebaseerd op een mozaiek in het Alhambra in 
Spanje (Escher bestudeerde dergelijke patronen zeer zorgvuldig). Als 
we goed kijken kunnen we zien dat alle delen even groot zijn en zo zijn 
geordend dat de zwarte figuren hetzelfde patroon, gedraaid over een 
rechte hoek, opleveren als de witte figuren. 


Escher bestudeerde dergelijke patronen en ontwikkelde zelfs een spel 
gebaseerd op dit principe. Hij ontwierp nl. een stempel zoals: 


65 


ms 
nia 


Een dergelijk stempel kunnen we op vier manieren afbeelden 
Ns 7 Sn za 


We kunnen de patronen bijvoorbeeld zodanig rangschikken dat ze een 
attractief doorlopend patroon vormen. 


A ded 
)_ {OC 
JOL 
) (OC 


EP NE TE 
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Met dit programma kunnen we in feite iets soortgelijks doen. Na de maat 
van het stempel opgegeven te hebben, zien we een vierkantje op het 
scherm verschijnen van de opgegeven maat. In de linker bovenhoek is 
de cursor zichtbaar. De cursor kunnen we door middel van de cursor- 
toetsen verplaatsen. Drukken we op de spatiebalk dan zal de positie 
waarop de cursor staat van kleur veranderen. Willen we dit weer onge- 
daan maken, dan is nogmaals indrukken van de spatiebalk, op dezelfde 
positie, voldoende. Als we klaar zijn met ons figuurtje drukken we de 
RETURN-toets in. 

Op het scherm verschijnt nu een veld dat gevuld wordt met het figuurtje 
dat we gemaakt hebben. Als het veld vol is verschijnt weer een cursor. 
Deze kunnen we van figuurtje tot figuurtje verplaatsen door middel van 
de cursortoetsen. Met behulp van de spatiebalk kunnen we deze figuren 
roteren. ledere maal dat de spatiebalk ingedrukt wordt wordt het figuur- 
tje over 90 graden geroteerd. 


Met behulp van dit programma kunt u een bijna onbeperkt aantal zeer 
fraaie „Eschers' maken. 


16 ‘MSX-Escher 

28 ‘Arend Rensink 

30 ’ 

48 DEFINT A-Z 

50 DEF FNJA=INSTRC"Jj",INPUT$C(4))>G0 


76 ‘XX hoofdprogramma XX 

38 GOSUB 194‘initiatie 

96 GOSUB 280’stempel invullen 
168 GOSUB 628’‘scherm vullen 
110 SCREEN 1 

128 PRINT"Nog een keer? "; 
138 IF NOT FNJA THEN 168 

148 PRINT" Dezelfde stempel? "; 
154 IF FNJA THEN 190 ELSE 99 
169 SCREEN @ 

179 END 


198 ‘X4 initiatie XX 
208 SCREEN 1 

218 COLOR 15,4,4 

220 MX=16:MH=5I:MV=43 
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230 


DIM GCMX,MX),RCMX, MX), OCM, MX), LCMX, MX), BDC 


MH, MV) 


249 


BS=BASEC6) 
AANS=CHR$C215) :UITS=CHRSC219) 
RETURN 


‘XX stempel maken XX 

CLS 

INPUT" Formaat van de stempel";FRM 
IF FRM&4 OR FRM>MX THEN PRINT"Formaat tusse 
en"MX"aub":GOTO 309 

VPOKE BS+26,&H1F 

VPOKE BS+27,&HAF 

VPOKE B8+31,&H18 

LG=13-FRM/2 

MI=FRM:MJ=FRM 

FOR I= TO FRM 

FOR J=z1i TO FRM 

GCI,J)=0 

GOSUB 579’‘vlakje 

NEXT J,I 

Izi:J=i 

GOSUB 570’vlakje 

PRINT CHR$(29); 

GOSUB 1290’besturing 

IF SP THEN GCI,JD=NOT GCI,J) 
IF NOT AF THEN 439 
‘gedraaide stempels 

FOR K=i TO FRM 

FOR L=i TO FRM 
RCFRM+1-L,K)=GCK, LD 
OCFRM+1-K,FRM+4L-L)=G(K, LD 
LCL,FRM+1-K)=2GCK, LD 

NEXT L‚K 

RETURN 


‘XK vlakje tekenen XX 

LOCATE LG+I,5+J,G 

IF GCI,J) THEN PRINT AAN$; ELSE PRINT UITS$; 
RETURN 

‘XK bord vullen XX 

SCREEN 3 

HD=MH/FRM: UDM /FRM 


650 PRESET(29,0) 


668 LINE -STEP C4+FRMXHD44,0) 
670 LINE -STEP (8, 4+FRMKVDX4) 
680 LINE -STEP (-4-FRMKHDX4,0) 
690 LINE -STEP (0, -4-FRMKUDK4) 


790 I=i:J=i 

710 MI=HD:MJ=VD 
729 FOR CI=1 TO MI 
738 FOR CJ=1i TO MJ 
748 BDCCI,CJ)=0 


759 GOSUB 869’patroon 


768 NEXT CJ,CI 


778 ‘stempels draaien 


788 Cl=l:CJ=J 


790 PSETC20+C4KCI-2IKFRM, C4KCJ-2IKFRM),8 

290 GOSUB 1290’besturing 

810 IF SP THEN BD(CI,CJ)=CBD(CI,CJ)+1) MOD 4 
829 GOSUB 86Q’patroon 

8320 IF NOT AF THEN 789 


840 RETURN 


860 ‘4% patroon XX 


870 HV=20+(CI-1DKFRMK4 


880 VV=CCJ-1IKFRMK4 


890 ON BDCCI,CJ)+1 GOSUB 920,990,1969,1130 


990 RETURN 


928 ‘rechtop 
930 FOR K=i TO FRM 
940 FOR L=i TO FRM 


950 IF GCK,L) THEN PSETCHV+KX4,VUV+LX4) ELSE PRE 


SETCHV+KK4, VV+LK4D 
960 NEXT L‚K 

3978 RETURN 

988 ’ 

998 ‘rechtsom 

1099 FOR K=4 TO FRM 
1013 FOR L=i TO FRM 
1028 IF RCK,L) THEN 
ESETCHV+KK4, VV +LK4D 
1938 NEXT L‚K 

1949 RETURN 

1959 ’ 

1969 ‘ondersteboven 


PSETCHV+K4&4,VV+LK4) ELSE PR 
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1078 FOR K=1 TO FRM 

1688 FOR L=4 TO FRM 

1698 IF OCK,L) THEN PSETCHV*K&4,UV+LK4) ELSE PR 
ESETCHU+4EK, VU +4XLD 

1409 NEXT L‚K 

1118 RETURN 

1128 ’ 

1139 ‘linksom 

114408 FOR K=1 TO FRM 

1158 FOR L=4 TO FRM 

1168 IF LCK,L) THEN PSETCHV+KX4, UV+LK4) ELSE PR 
ESET CHV*KK4, VU+LK4D 

1178 NEXT L‚K 

1188 RETURN 

11399 ’ 

1298 ‘X% besturing XX 

1218 INZASCCINPUTS$C(4)) 

1226 I=I+C(IN=29 AND I>1)-CIN=28 AND ICMIJD 
1238 J=aJ+4IN=38 AND J24)-CIN=34 AND JCMJ) 
1249 SPzIN=32 

1253 AF=IN=13 

1268 RETURN 
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HET REKENWONDER 


Hoe goed bent u in rekenen? Bij dit spel toont de computer ons steeds 
6 getallen en een groter „doelgetal". U mag twee getallen uitkiezen plus 
één van de vier basisbewerkingen van het rekenen, dus: 


optelling + 
aftrekken — 
vermenigvuldigen *% 
delen / 


Met de getallen die u dan gekozen heeft, wordt dan de gekozen bewer- 
king uitgevoerd. Als u bijvoorbeeld 7 + 18 intypt, berekent de computer 
7 + 18 = 25. De getallen 7 en 18 in de oorspronkelijke reeks worden 
vervangen door het getal 25. Nu kiest u opnieuw, enz. U kunt hiermee 
doorgaan totdat u het doelgetal bereikt heeft, of tot de tijd om is. Reken- 
wonder is geen ingewikkeld spel. Het is zeker geschikt voor het gehele 
gezin en misschien is er wel een rekenwonder in uw midden … 


10 ‘MSX =- Het rekenwonder 


39 DEFINT A-2 

40 DEF FNJACXS$)=INSTRC"Jj",LEFT$SCX$,41D)>0 
58 DEF FNRNAX)=4+INTSXKRNDCHDD 

68 DU=FNRNC-TIME/2) 

te 

88 ‘XX hoofdprogramma XX 

99 ON INTERVAL=25G GOSUB 13168 

196 GOZUB 339’ init 

119 FOR I=1 TO AS 

129 CLS 

130 PRINT"De beurt is aan speler"I 
140 PRINT 

150 PRINT"Tijd in sekonden:" 

160 GOSUB 460 ’hbegingetallen 

170 KL=0:TI=59 

180 INTERVAL ON 

199 GOSUB 580’‘laat zien 

208 GOSUB 698’voer expressie in 
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IF KL THEN 249 

GOSUB 879’‘hbereken expressie 
IF NOT KL GOTO 199 
INTERVAL OFF 

GOSUB 589’laat zien 
GOSUB 1419’‘resultaat 
NEXT I 

INPUT"Nog een ronde";AN$ 
IF FNJACAN$) THEN 110 
LOCATE ,,9 

END 


‘XX initialisatie XX 

CRS$=CHR$C13) :BSS$ECHRSCB):DLSECHRSCL2T7) 
COLOR 15,4,4:SCREEN 9 

INPUT"Aantal spelers";ASs 

IF AS<1 THEN 360 

AG=zT7T:AK=14 

DIM KGCAK),GTLAG),PTCAS) 

FOR I=z1 TO AK 

READ KGCI 

NEXT 1 

DATA 1,2,3,4,5,6,7,8,9,10,25,50,75, 1009 
RETURN 


‘XX begingetallen XX 
DL=I9+EFNRNS 990) 

BE=@ 

PRINT"Het doelgetal is: "DL 
OG=zAG 

FOR J=1 TO 06 
GTAJJEKGCENRNCAK)) 

IF GTCJ)BB THEN BB=GT(J) 
NEXT J 

PRINT"Beste hbenadering:" 
RETURN 


‘KX laat getallen zien X% 

LOCATE 17,4 

PRINT BB 

LOCATE 9,6 

PRINT"Gebruik de volgende getallen:" 
FOR J=i TO 06 

PRINT GTCJ); 


650 NEXT J 

668 PRINT SPC(49) 

678 RETURN 

€88 ’ 

698 'KX voer expressie in XX 

798 PRINT:PRINT"Bewerkina?"SPC(30) 
718 LOCATE 141,9 

728 Bl$="" 

738 T$=INKES$ 

748 IF KL THEN 859 

750 IF T$="" THEN 739 

769 IF T$=CR$ THEN 859 

778 IF T$=B5$ AND LENCBW$)>0 THEN 829 
780 IF T$<" " OR T$2"9" THEN 730 
799 BW$=BW$+T$ 

899 PRINT T$; 

819 GOTO 739 

820 BWS$=LEFT$SCBWS$,LENCBWS$) -1) 
830 PRINT DL$; 

848 GOTO 738 

859 RETURN 


879 ‘XX bereken expressie XX 

888 GOSUB 1150’getal 

890 G1=GI:EV2GT(G1):GTCG1)=0 

900 OPS=LEFTSCHWS, 1) 

910 BWS$=MIDSCBWS$, 2) 

929 GOSUB 1150’'getal 

938 G2=61 

948 GTLGIJ=EV 

950 IF G4=8 OR G2=8 OR BW$CH"" THEN 1139 


968 ON INSTRC("+-X/",OPS$) GOTO 979,1099,1030, 106 


@:GOTO 1139 

979 ‘optelling 

988 GTCGLIEZGTCEGLI+GT(G2) 

990 GOTO 1099 

1909 ‘aftrekking 

1919 GTCGA)=ABSCGT(G1-GTCG2ID 
1929 GOTO 1990 

1938 ‘vermenigvuldiging 

1048 GT(G1)=GTEG1IKEGTCG2D 

1959 GOTO 1999 

1968 ‘deling 

1978 IF GT(G1) MOD GTCG2)20 THEN 1130 
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1989 GTCG1)=GTCG1)/GTCG2) 

1998 GT(G2)=GT40G) 

1109 IF ABSCDL-GTC(G4))<ABSC(DL-BB) THEN BB=GT(G1 
) 

1119 06=0G-1 

1128 KL=KL OR OG=1 OR BB=DL 

1138 RETURN 

v1ieg ” 

1159 ‘haal getal uit bw$ 

1169 GT=8 

1179 IF LEFT$(BW$,4)=" " THEN BW$=MIDS$CEBW$, 2): G 
oro 1479 

1189 IF BW$="" THEN 1259 
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1190 
1209 
1219 
12209 
12309 
1240 


1250 
1260 
1279 
1289 
1290 
1309 
1318 
1329 
1330 
1340 
1359 
1360 
1370 
1380 
1398 
1409 
1410 
1429 
1430 
1)<8 
1440 
1458 
1460 
TJ) 
1479 
1480 
1430 


C=ASCCBWS) -483 

IF C<9 OR C)9 THEN 1240 
GT=10X6T+C 
BWS$=MIDS$CHWS$, 2) 

GOTO 1189 


IF LEFT$SCBW$,1)=" " THEN BWS$=MIDSCBW$, 2) :G 
OTO 1249 


GI=0 

FOR J=1 TO OG 

IF GT=6GTCJ) THEN GI=J:J=06 
NEXT J 

RETURN 


‘KK tijd 4% 
TieTie4 

KL=TI{<=0 
PLAY"VBOELE4C* 
XaPOSC1):YECSRLIN 
LOCATE 17,2 

PRINT TI 

LOCATE X,Y,1 
RETURN 


‘XX strafpunten XX 
PTCIJ=PTCIJ+ABSC(DL-BB) 


IF ABS(DL-BB)=0 THEN PTCI)=PTCIJ=TI: IF PTC 


THEN PTCI)=@ 
LOCATE 9,9,9 
FOR J=i TO AS 


PRINT USING" Speler ##:### strafpunten" ;J,P 


NEXT J 
DUS=INPUT$C1) 
RETURN 
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LN 
0 OS ee bere sal 


en 


HAAIENJACHT 


Al vijf dagen dobbert u in uw bootje op die grote oceaan … Plotseling 
… het gladde wateroppervlak rimpelt licht. Met een ruk draait u zich om 
… daar is hij, de schrik van de zee, de HAAI!!! 


Nu gaat het echte spel pas beginnen. U kunt uw boot besturen door 
middel van de cursortoetsen. 

Uw radar vertelt u steeds hoe dicht u de haai al genaderd bent. Hoe 
dichter bij, hoe hoger het geluid dat we horen. 

Raak echter niet te ver uit de buurt, anders verschijnt: 


Sorry, dat gaat te ver! 


Als u denkt dicht genoeg genaderd te zijn dan kunt u schieten door de 
spatiebalk in te drukken. 
Raken we de haai dan verschijnt: 


U hebt van … m geraakt 


Helaas beschikt u slechts over een beperkte voorraad brandstof en zo- 
wel varen als schieten kost brandstof. Als u geen brandstof meer heeft 
zal de computer melden: 


Uw energie is op 


Aan het einde van het spel toont de computer u een uitgebreid overzicht 
van uw prestaties als haaienjager. 


14 ‘MSX - haaienjacht 

28 7 

30 DEFINT A-Z 

43 DEF FNJACXS$)EINSTR("JJ",LEFTSCHS$, 1D) >0 
58 DEF FNRNCX)EL+INTCXHXRNDCX)D 

64 DUZFNRNC-TIME/2) 

me 

89 ‘44 hoofdprogramma XX 

90 ON STRIG GOSUB 758,75 
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109 GOSUB 259’init 

119 GOSUB 450’start 

128 STRIGCSK) ON 

139 GOSĲB 580’invoer 

148 GOSUB 640 ‘berekenen 
159 GOSUB 830’uitvoer 

169 IF NOT KL THEN 139 

179 STRIGCSK) OFF 

188 SOUND 8,0 

190 GOSUB 880 ’‘einde 

299 IF INKEY$CH"" THEN 290 
219 INPUT"Nog een keer" ;AN$ 
228 IF FNJACANS) THEN 110 
230 END 


250 ‘KX initialisatie XX 
260»JA=-1:NEE=D 

279 AQ=3 

289 DIM WI$SCAO),OPSCAOD 
238 DIM DXC2),DYC2) 

308 FOR I=8 TO 2 

318 READ DXCI),DYCID 

329 NEXT I 

338 DATA -1,-32,0,0,1, 32 
340 FOR I= TO 3 

350 READ WI$SCI),OPS$CIJ 
360 NEXT I 

378 DATA VA5L4AFDFDFGFD, "Sorry, dat gaat te ver 


389 DATA V45L1003FA0O4CPAOSCF, "Gelukt! Gefelicit 
eerd!" 

399 DATA L640IBAGFEDCO2BAGFEDC, "Uw energie is o 
paeraakt, " 

408 INPUT"Jaystiok (j/n)";AN$ 

410 IF FNJACANS$S) THEN SKaí ELSE SK=9 

429 MS=G 

439 RETURN 


450 ‘XX start XX 

469 AK=AK+1 

479 HXaFNRN(79)-35:HY=FNRNC70) -35 
489 RIzZABS(SX)+ABS(SYI:RD=DI 

490 KL=NEE:RKENEE 

509 EN=509:HAeG:AS=0:MA=150 


78 


RX=Q:RY=0 

SOUND 8,0 

SOUND 1,1 

SOUND 6,55 
SOUND 7,14 
RETURN 


‘XX voer richting in XX 

ST=STICKKSK) 

RA=CST>5)-CST>4 AND STC5) 

RY=(5T=8 OR ST=1 OR ST=2)-(5T>3 AND STET7) 
RETURN 


‘XX bereken afstand eta XX 
HXEHX-3KRX:HPEHY- IKR 

EN=ZEN-ABS(R#) -ABS(RY) -1 

IF EN£=8 THEN EN=@:KL=JA:0Z223: RETURN 
‘haai vlucht 
HXEHX4+SENCHZI : HYEHY4SENCHYD 
AF=ABSCHXJ+ABS CH) 

IF AF<MA THEN MAzAF 

IF AF>150 THEN KL=JA:0Z=1 

RETURN 


‘XK geschoten &£X 

AS=AS+1 

EN=EN-2XAF 

IF EN<=8 THEN EN=3 ELSE RA=FNRNCAF) 5 
KL=RA:0Z=2 

PLAY" u pi “S1M1999BA" 

RETURN 


79 


80 


‘KX uitvoer XX 
SOUND 8,12 
SOUND 8, AF 
RETURN 


‘KX einde XX 
CLS 
PRINT" Overgebleven energie: ";EN 
PRINT"Afstand:";AF 
PRINT OP$COZ) 
PLAY WI$SCOZD 
PRINT 
PRINT"Aantal keer geschoten: ";AS 
PRINT"U bent tot op"MÂ"m gekomen." 
IF RA THEN PRINT" hebt van"AF"m geraakt" 
PRINT 
IF RA THEN SC=50+EN/4 ELSE SC=50-AF/2 
IF SC<@ THEN 5C=3 ELSE IF SC>198 THEN SC=1 


TSeT5+8C 
IF SC>MS THEN MS=SC 


PRINT"Beloningen (max. 190):" 

PRINT"Dit spel: "SPCC42); SC 

PRINT" Gemiddeld na";AK; "keer: ";INTCTS/AK) 
PRINT" Maximum: "SPCC13);MS 

PRINT 

RETURN 


DE SHAKESPEARE SHUFFLE 


Shakespeare, 's werelds beroemste schrijver, en schaken, de koningin 
onder de spelen, worden in deze ongewone puzzel gecombineerd. Op 
een schaakbord zijn de volgende letters en cijfers geplaatst: 


Er is slechts één schaakstuk nl. het paard en dat kan zich over het bord 
bewegen als in ieder schaakspel. Welnu als dit paard een aantal spron- 
gen uitvoert zal op het bord de tekst door elkaar gehusseld worden. Aan 
het begin van het spel zien we: 


Niveau ? 


Nu geven we het aantal sprongen aan die het paard van te voren moet 
maken. Het zal duidelijk zijn dat hoe hoger dit getal is, hoe verwarrender 
is gehusseld. Uw taak is nu de oorspronkelijke tekst te herstellen door 
het paard weer bepaalde sprongen te laten uitvoeren. 

Om een bepaalde sprong aan te geven typen we steeds een getal in en 
wel volgens onderstaande figuur. 
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‘MSX - Shakespeare shuffle 


DEFINT A-Z 

DEF FNJA=INSTR("Jj",INPUT$(4))>0 
DEF FNRNCX)=4+INTCXARNDCX)) 
DU=FNRNC-TIME/2) 


‘KK hoofdprogramma X% 


GOSUB 258’init 


GOSUB 488’ bord 

AZ=} 

GOSUB 988’voer zet in 

GOSUB 1969’‘voer zet uit 

IF P$CÈT$ OR XNCD1 OR WNC1 THEN 129 
LOCATE 9,19 

PRINT"In"AZ2"zetten klaar." 

PRINT"Nog een keer? "; 

IF NOT FNJA THEN 229 

PRINT“ ja" 

PRINT"Dezelfde situatie? "; 

IF FNJA THEN T$z=R$:XO=RX:YO=RY:GO0TO 108 ELS 


E PRINT:GOTO 98 


220 
230 
240 
250 
260 
270 
230 
239 
N.W 
308 
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LOCATE ,,8 
END 


‘KK initialisatie XX 

JA=-1:NEE=@:AFM=8 

RESTORE 

READ T$:P$=T% 

DATA"TO BE ORNOT TO BE, THAT IS THE QUESTIO 
ILLIAM SHAKESPEARE 1693" 

FOR I= TO 8 


READ KXCI),KYCID 
NEXT I 


DATA a Pe AF etsen lierdrtiës a ep -2;1, ar Fin 


XOzi:YOzi: Nei: Nei 
INPUT"Spelniveau";NV 
‘schudden 

LZ=NEE 

FOR Isi TO NV 
Z=FNRN(8) 


GOSUB 1969’‘voer zet uit 


IF XO=XN THEN 390 
XO=ZXN: YO=N 

NEXT I 

LZ=JA 
R$=T$:RXsXO:RY=0 
RETURN 

‘KK bord XX 

SCREEN @ 

RESTORE 519 
Datar 
RINKE EEE ER EE A 
DATA 
PRINT EEE EAA EA 
DATA Prmsfemnfennapanjenfenfpnafl 
PRITE Kk 1 EE AT E A 
DATA Ine 
DATAI 1 LI 


DATA" I4l 121 
BUUR pj peat 
DATA“ I8N | 1 131 
DAT fanfare 
DATA" LI 
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889 
890 
300 
910 
920 
930 
340 
950 
960 
970 
380 
990 


1090 
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PATA” pepepaejje 
DATA" ITI 1 |I 141 
ZEER bof peat 
DATA" 161 151 
DATA Ol md 
FOR I=1 TO 2XAFM+1 
READ X$ 

LOCATE 2,1 

PRINT X$; 

NEXT I 

FOR I=13 TO 23 
READ X$ 

LOCATE 22,1 
PRINT X$; 

NEXT I 

LOCATE 27,18 
PRINT CHR$(255) 
FOR I=1 TO AFM 
FOR J=i TO AFM 
LOCATE 1+2XI,2xJ 
PRINT MIDSCT$,AFMKCJ-4)+1, 10; 
NEXT J,I 

RETURN 


‘XX voer zet in XX 
LOCATE 1+2XX0,24Y0,1 
Z=VALCINPUT$CIDD 


1019 
1620 
1930 
1040 
1059 
1969 
1479 
1080 


1099 
1109 
1110 
1129 
1139 
1148 
1150 
1169 
1170 
11808 
1190 
1209 


IF 2=8 OR 228 THEN 1090 
LOCATE 750 

AZ=AZ+1 

RETURN 

‘XX voer zet uit XX 


KSsKXCZ): PEEK CZ2D 


IF XO+XSC1 OR KO+XSPAFM OR YO+YSCL OR YO4Y 
S2AFM THEN RETURN 


KN=X0+X5: YN=YO+YS 
SOSEMIDSCTS$, KO+AFMKCYO-1), 1D 
SNS=MID$CTS, XN4AFMKCHN-1), 1) 
MID$SCT$, XO+AFMKCYO-1))EENS 
MIDSCTS$,XN+AFMKCYN-1)) 5508 
IF NOT LZ THEN RETURN 

LOCATE 1+2X0,2xY0 

PRINT SN$; 

LOCATE 1+2XXN,2XYN 

PRINT S0$; 

ZON: YOZYN 

RETURN 
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EXPLOSIE 


Met behulp van dit programma speelt u het uitdagende spel Explosie 
tegen de computer. Durft u het aan … ?! 

Explosie wordt gespeeld op een bord van 3 x 3 of 4 x 4 velden. De 
computer vraagt u allereerst welke afmetingen (3 x 3 of 4 x 4) u wenst. 
leder veld op het bord heeft een bepaalde capaciteit. De capaciteit is 
gelijk aan het aantal aangrenzende velden. Dus een veld in de hoek 
heeft een capaciteit van 2. 


Velden aan de rand hebben altijd een capaciteit van 3. 
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Velden in het midden hebben altijd een capaciteit van 4. 


Zowel uzelf als de computer hebben stenen, van verschillende kleur, die 
om de beurt op het bord gezet worden. U mag een steen steeds op een 
lege plaats zetten dan wel op elke plaats waar al stenen van uw eigen 
kleur staan. Een veld „explodeert als het aantal stenen gelijk wordt aan 
de capaciteit van het betreffende veld. Exploderen betekent hier dat de 
inhoud van het veld verspreid wordt over de naburige velden. Op deze 
wijze kunnen we dan velden van de vijand veroveren. 

Naarmate het spel vordert zult u merken dat deze explosies steeds gro- 
ter worden. Dit zeker is een van de vele fascinerende facetten die dit 
spel biedt. Aan het eind is het zelfs mogelijk dat het gehele bord één 
voortdurende explosie toont waarbij uiteindelijk alle velden één kleur to- 
nen. Is dat uw kleur dan heeft u gewonnen! 


18 ‘MSX - explosie 

ges 

36 DEFINT A-Z 

40 DEF FNJACXS$)=INSTRC"Jj",LEFT$CHS$,1))D0 
58 DEF FNRNCX)=4+INTCHKRNDCXDD 
60 DU=FNRN(-TIME/2) 

1e 

88 ‘XX hoofdprogramma XX 

98 GOSUB 279’ init 

199 GOSUB 439’speelbord 

118 IF NOT ST THEN 149 
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230 


SP=1:GOSUB 629’‘speler zet 

IF EE THEN 190 

SP=-1:G60SUB 41250’‘oomputer denkt 
GOSUB 1410’computer zet 

IF EE THEN 190 

AZ=A2+1 

GOTO 129 

GOSUB 1619’‘einde 

END 


‘shzek 
FOR I= TO AFM:FOR Jz TO AFM:SBCI,J)=EBCI, 


JJ:NEXT J,I:RETURN 


240 
250 


‘eb=sh 
FOR I=íi TO AFM:FOR J=1 TO AFM:EB(I,J)=SBCI, 


JÒ:NEXT J,I:RETURN 


260 
270 
280 
290 
300 
301 
302 
318 
320 
330 


, 


‘KX initialisatie XX 

JA=-1:NEE=G 

BS$=CHR$C(B) : CR$SCHRICL3) 

A2=0 

SOUND 7,7 

SOUND 6,25 

INPUT"Grootte van het bord (3 of 4)";AFM 

IF AFM<3 OR AFM>4 THEN 310 

DIM EBCAFM+1,AFM+1),SBCAFM+1L,AFM+1),STCAFM+ 


1,AFM+1D 


340 
350 
369 
370 
389 
390 
400 
410 
420 
430 


FOR X=0 TO AFM+1 

FOR Y=8 TO AFM+4 

STAX, Y)adt(Xzijt+(KHZAFMI+( Yi + CY=AFMD) 
NEXT Y,‚% 

INPUT"Wilt u beginnen";AN$ 
ST=FNJACAN$) 

OPEN "GRP:" FOR OUTPUT AS #1 

RETURN 


‘XX speelbord XX 

COLOR 15,4,1 

SCREEN 2 

LINE (85,30) -STEPC(S5S+16%AFM, 7+29KAFM),45, BF 
LINE STEP(-3,-4) -STEPC41-416XAFM,1-20KAFM),1, 


RG$="A BC" 
IF AFM=4 THEN ROS$s=RG$+" D" 
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PRESET(93, 20) 

PRINT #1,R6$ 
PRESET(93, 42+20KAFM) 
PRINT #1,R6$ 

FOR I=1 TO AFM 
PRESETC77,20+2041I) 
PRINT #1,USING"#";I 
PRESET(94+16KAFM, 20+20X1) 
PRINT #1,USING"#";I 
NEXT I 

RETURN 


‘XX invoerroutine XX 

LINE (19,150)-STEPC2409,8),4,BF 
PRESET(75, 1500 

PRINT #4," Uw zet? "5 

L$=INPUT$C1) 

ZX=ASCLLS) -ASCL"A")+1 

IF ZX<1 OR ZXDAFM THEN 660 

PRINT #1,L$; 

L$=INPUT$C1) 

IF L$=B5$ THEN GOSUB 838:G0T0 660 
ZY=ASCCLS)-ASC("B") 

IF ZY<1 OR ZY>AFM THEN 799 

PRINT #1,L$; 

L$=2INPUT$C1) 

IF L$=B5$ THEN GOSUB 830:6G0T0 799 
IF L$<CÒCR$ THEN 759 

IF EBC2X,2Y) <0 THEN 639 
L2=JA:G0SUB 889’'voer zet uit 
GOSUB 240 ’‘eb=sbkb 

RETURN 


‘XX backspace XX 

LINE STEPC(Q,8)-STEPC-8,-8),4,BP 
L$=LEFT$CL$,LENCLS$) -1) 

RETURN 


‘XX simuleer zet XX 

GOSUB 220’sbzeb 
SBC2ZX,2Y)=2SB(2ZX,2Y)+SP 
XsZX:Y=Z2Y:GOSUB 1179’laat zien 


IF ABS(SBCX,YI)IECSTCX, Y) THEN RETURN 


GOSUB 1979’‘voer explosie uit 


943 AE=G 

950 EX=NEE 

96B FOR X=ai TO AFM 

974 FOR Y=i TO AFM 

930 IF ABSCSB(X,YI)CST(X,Y) THEN 1929 

939 EXz=JA 

1908 GOSUB 1979'voer explosie uit 

1419 AE=AE+1L 

1029 NEXT YX 

1939 EE=AE>2ZKAFM"2 

1948 IF EX AND NOT EE THEN 959 

1459 RETURN 

1963 ’ 

1878 ‘XX voer explosie uit XX 

1075 IF PLAYCG) THEN 1975 

1988 IF LZ THEN PLAY"S1M500GA" 

1999 SBCX,Y)=SPKCABSCSHBEK, YI) -STCK,YII:GOSUB 11 
79’laat zien 

1199 X=sX+1:SB(K, YI=SPKCABSCSB(K, YI)+1):GOSUB 11 
79‘laat zien 

1119 K=X-2:SBCX, YI=SPKCABSCSB(K, YII+1):GOSUB 11 
79‘laat zien 

1128 XaXt1:Yar+1:SBCX, YI=SPKCABSCSHB(K, YI)+1): 60 
SUB 1179’laat zien 

1130 Y=Y-2:SB(X, YI=SPKCABS(SB(K, YI)+1):GOSUB 11 
79’laat zien 

1148 YaY+1 

1159 RETURN 

1168 ° 

1179 ‘XX laat situatie zien XX 

1189 IF NOT LZ THEN RETURN 

1198 IF X<1 OR X>AFM OR Y<4 OR Y2AFM THEN RETUR 
N 


1289 IF SBCX,7)<9 THEN KL=6 ELSE IF SB(X,Y)=8 T 
HEN KL=í ELSE KL=3 

1218 LINE (87+16XX,33+20XY)-STEPC-15,-19),KL, BF 
1228 IF SB(X,Y)<>0 THEN DRAW"M+5,+7":PRINT #1, U 
SING"#";ABSCSBCX, YI) 

1239 RETURN 

1249 ’ 

1258 ‘XX computer denkt 4% 

1268 LINE (18,149)-STEP(240,29),4,BF 

1279 PRESET(39,140) 

12808 PRINT #1,"Ik denk"; 
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1299 BE=1900 

13098 FOR X1=1 TO AFM 

1318 FOR Y1z4 TO AFM 

doed PRINT Bloes 

1339 IF EBCX4,Y4)>8 THEN 1389 

1348 LZ=NEE:ZX=X1:ZY=Y1:G0SUB 880’simuleer zet 
1358 IF EE THEN BX=X1:Bf=Yi:X1=AFM: Y1=AFM: GOTO 
1289 

1369 GOSUB 1490 ‘evaluatie 

1378 IF ENCBE OR EN=BE AND FNRN(19)€4 THEN BE=E 
N:BX=X1:Br='t1 

1383 NEXT Y41,X1 

1399 RETURN 

1404 ’ 

1418 ‘XX voer zet uit XX 

1429 LINE (10,140)-STEPC248,83),4,BF 

1438 PRESET(75,140) 

1448 PRINT #1, USING"Ik zet: !#";MID$C"ABCD", BX 
st BY; 

1450 ZX=BX:ZY=BY:LZEJA:GOSUB 880’zet 

1468 GOSURB 250 ‘ebz=sh 

1478 RETIRN 

1438 ’ 

1498 ’XX evaluatie XX 

1583 EN=9g 

1513 FOR X2=4 TO AFM 

1529 FOR Y2=4 TO AFM 

1536 EN=ZEN+SB(X2, Y2) 

1548 IF -SB(X2,Y2)CST(X2,Y2)-1 THEN 1589 

1559 ENzZEN-2 

1560 EN=EN-1OXC(CSB(X2+1, Y2)=ST(K241, Y2)-1)+CSBC 
KE,Y2HIDEST(K2, 24-19) 
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1570 ENSEN-40%((SBCX2-1, V2I=STEK2-L, F2) -19+CSDC 
X2,Y2-1)eST(K2, V2-1)-49) 

1580 NEXT Y2,X2 

1593 RETURN 

1699 ’ 

1618 ’X% einde X% 

1620 FOR I=1 TO 5990 :NEXT 

1639 SCREEN B:COLOR 15,4,4 

1648 PRINT"Eeuwiagdurende explosie." 

1658 IF SP>@ THEN PRINT"U heeft "; ELSE PRINT"I 
k heb "; 

1669 PRINT"aewonnen in"AZ"zetten." 

1678 END 
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NEW YORK, NEW YORK 


Bij dit geweldig spannende spel bevindt u zich hoog boven New York 
van waaruit u dan neerkijkt op al die straten. Op dit moment zijn de stra- 
ten nog verlaten … maar wacht, daar verschijnen van alle kanten auto's. 
Welnu, het is uw taak om het verkeer zo goed mogelijk te laten doorstro- 
men en wel door de verkeerslichten vanuit de helicopter te besturen. 
Als een auto (voorgesteld door een rechthoekje) een rood licht bereikt, 
stopt hij natuurlijk. Elk groepje van 4 stoplichten wordt „bestuurd’’ door 
één van de letters a, z, k of m. Elke maal dat één van deze toetsen wordt 
ingedrukt wordt het volgende stoplicht in de bijbehorende groep rood. 
Aan het begin van het spel heeft u 200 punten. U krijgt 4Opunten voor 
elke auto die de gehele stad ongehinderd door kan rijden. Als echter 
twee auto's botsen … ja dan verliest u 200 punten en de weg zal tijdelijk 
geblokkeerd zijn. Moet een auto stoppen voor een rood licht of voor een 
ongeluk dan kost u dat ook punten. Heeft u geen punten meer dan is 
het spel uit - zo niet dan geldt een vastgestelde tijd. Hoe meer punten 
u heeft - hoe beter. 

Als u er ooit van droomde verkeersagent in die zo dynamische we- 
reldstad te worden … welnu, hier is uw kans. 


18 ‘MSX - New York, New York 


30 DEFINT A-Z 

48 DEF FNRNCKOZINTCL+KERNDCKD 0) 

58 DEF FNJACHS)=INSTR("jJ",LEFT$SCHS$, 1000 
63 I=FNRNC-TIME/2} 


88 ‘4% hoofdprogramma XX 

94 ON INTERVAL=199 GOSUB 1738 
198 GOSUB 248‘ init 

119 GOSUB 828’start 

128 GOSĲB 918’scherm 

138 INTERVAL ON 

144 GOSUB 1399’‘auto’'s 

150 IF NOT AF THEN 140 

168 INTERVAL OFF 

170 CLOSE 
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186 
138 


430 
440 
450 
460 
470 
430 
430 


IF TIME{2666 THEN 5C=0 
GOSUB 1220‘resultaat 
INPUT"Nog een keer" ;AN$ 
IF FNJACAN$) THEN RUN 
END 


‘KX initialisatie XX 

JA=-1 

“tijd 

OPEN "GRP:" FOR OUTPUT AS #1 

‘“aeluid 

SOUND 6,250 

SOUND 7,&HF1 

‘wegen 

DIN VISZI, NELE, VELING MACD, HELI, MICH) 
FUR TSl TO @ 

READ VACHT MCI VECHT HAC, H2ECIHIENLD 
NEXT 1 

DATA 52,69,87,25,45,65 

PATA 156,173,191,4125,1445,4165 
‘kruispunten 

DIM K{416) 

‘stoplichten 

Ak=4 

DIM STCAK),SKCAK, 3),SYLCAK, 3) 

ST(G)=-1 

FOR I= TÔ 2 

FOR J=1i TO & 

KR=EKCJ-1)+I 

STIKR) =d 

FOR K=6 TO 3 

IF K=@ OR K=z3 THEN SXCKR,K)=V2CI)-26 ELSE 5 


KXCKR,KO=V2CID+30 


„60 


IF K<2 THEN SYCKR,K)=H2CJ)-28 ELSE SYCKR,K) 


=H2(J)+22 


518 
528 
539 
540 


NEXT Kdl 

‘auto’s 

AA=8:MB=40 

DIM AXCAA),AYLAAI,BACAAN, BYCAA), IXCAAD, IYCA 


AI,BCRAI,MBCAAD 


550 
566 
578 
588 


DIM SKCAA,MB),SCAA) 

FOR I=1 TO AA 

READ BXCI),BYCIJ,IKCIJ,IVCID 
READ MBCI),SCID 


530 READ WN 

696 FOR J=4 TO N 

610 READ B,5K:5K(I,B)=SK 

628 NEXT J 

630 NEXT I 

€40 DATA 6€6,6,0,10,21,8 

620: PAIR, 10,8 1,48) Ir Bid daden Ort 1448 ADs 
9,40 Etn tdk 

668 DATA 164,0,4,14,21,8 

670 DATA 10,3, 2, Ir 440 Di 010r7,81 4D 
Ard, 16; 11,46 

680 DATA 79,192,9,-108,21,2 

6IB PATA 14335434, LAD 146 4070, 16,8 
rAnrsrdondrk tik 

769 LATA 183, 198,0, 10, 24,2 

140 PATA 10,3,=4, 13, 28,4, E50, 90450, 44, TA, LAT 
1457160 644.46 

180 PATA 0,51,9,0, 308,3 

130 DATA 1Urb AGI rlr 04 SLO Ir Bd B 
redt ent 

749 DATA 9,157,9,0,30, 3 

198 DATA 16, sr ltd rde, Bill, Io dr A dd 19, 
16010 Rs, ankers 

768 DATA 256,35,-9,0,34,1 

118 PATH AG; Trel I rt 0106 LLS terr 
elsene biedt 

180 DATA 256,135,-9,0,34,1 

198 DATR A0, Tt, 8,493 10 AAL, 43, tE AS, 
7 ME Nn BOA 2 ORGA OU 4 DJ 

898 RETURN 

je U 

820 ’A% start 4% 

838 CLS 

248 PRINT:PRINT"Te gebruiken toetsen: " 

858 PRINT:PRINT TAB(18)"a Kk":PRINT:PRINT TABC4 
VIT A APKIENT 

868 INPUT"Moeilijkheidsgraad (4-3)";NV 

870 NV=20-54NV 

886 5C=2060:TIME=-200 

838 RETURN 

909 * 

910 ‘XX scherm XX 

928 COLOR 1,4,14:SCREEN 2 

938 ‘straten 
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FUR ASA TO 2 
GENE CUACT rr UICI ELI BP 
GINE COMEET 6, HILL IBF 
NEXT I 

‘stippellijnen 
FOR I=8 TO 14 

FOR J=1i TO 2 

CINE SVJ, 381 -STEPCE 67de; BP 
NEXT Jl 

FOR I=4 TO 25 

FOR J=1i TO 2 

EINE C10AT=-2,HZCJ IL STEP CH, 30005, BF 
NEXT J,I 

FOR I=1i TO 2 

FOR J=i TO 2 

LINE GVLSCT/,HACT II CUBE MBCT; ; BF 
NEXT J,I 

‘staplichten 

FOR KR=1 TO AK 

FOR ST=8 TO 3 

CIRCLE CSACKR,ST IN SVCKRG STING 34 3 
PAINT CSXCKR,ST),SYCKR,STI),3 
GOSUB 1259’kleur 

NEXT STjKR 

‘administratie 

PRESET (90,90) 

PRENT #1, Tige” 

PRESET (99,140} 

PRINT #1,"Prtn:" 


1238 RETURN 

1248 * 

1258 ‘XX kleur stoplicht X% 

12608 IF STCKRO=ST THEN KL=6 ELSE KL=3 

1274 DRAW "BM"+STR$CSKCKR,STIJ+", "4+STRECHYCKR, S 
Tot" CekL; NU3; NL3; NR3; ND3" 

12834 RETURN 


1384 ‘44 autobewegingen ££ 

12148 FOR I=4 TO AA 

1328 IF B£I2>8 THEN 1369 

1338 ‘auto rijdt niet 

1348 IF FNRNÁNV)=1 THEN BCI}=i:AX4CIj=B4CId: ACI 
j=BYCID 

1358 GOTO 1518 

1360 ‘auto rijdt 

1376 SK=SKCI,BCIJ) 

13808 IF SK<@ THEN IF STC-SK)=S(I) THEN PLAY""," 

VL2ALERE4A4", "VLZBISRE4B4":5C=5C-18:G0T0 1469 

1238 AK=1:60SUB 1550’‘teken auto 

1488 IF SK>B THEN KCSKj=KCEK) -1 

1418 AKCIJ=AKCIJ+HIKCIJ:ANYCIJ=ANCIJHINCIJD 

1428 BCI)=B(I)+1:IF BCI)=MBCI) THEN BAI)=0:5C=S8 

C+48:G0OTO 1469 

1430 SK=SKCI,BCIJ) 

1448 IF SKG THEN KCSKj=KCSK)+1: IF KCSK)=2 THEN 
GOSUB 1648‘botsing 

1458 AK=14:G0SUB 1559’‘teken auto 

1468 ON INSTRC" akzm",INKErN$) GOTO 1518,1476,14 

86,1499,1588:6G0T0 1519 

1478 KR=1:GOSUB 1679:G6G0T0 1510 

1488 KR=2:G0SUB 1674:6560T0 1519 

1498 KR=3:GOSUB 1674:60T0 1519 

1589 KR=4:605UB 1679 

1518 IF AF THEN I=Aâ 

1520 NEXT I 

1538 RETURN 

15408 ’ 

1558 ‘XX teken auto XX 

1560 IF I£5S THEN LINE CAXCIJ-2,AYCIJ-6)-STEP(4, 

12),AK,EF: RETURN 

4578 LINE CAACIJ-5,AYCIJ=II-STEPC10,5),AK, BF 

1528 RETURN 

150 
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1694 ‘XK botsing XX 

1618 KCSKj=KC5KD -1 

1629 PLAY"S1M26G48AL2A" 

1639 5C=5C-200 

1646 B(I)=0 

1658 RETURN 

1668 * 

1678 ‘XK verander lichten 4% 

1688 ST(KRO=ECSTCKRI+1) MOD 4 

1698 ST=STCKRI:GOSUB 1250’licht 

1788 ST={STEKRI+3) MOD 4:G60SUB 1250 
1718 RETURN 

drag ” 

1738 ‘X4 tijd- en scoreregistratie XX 
1740 LINE €155,1109)-STEPC-30,-20),4, BP 
1758 IF TIME>584208 THEN AF=JA 

1768 PRINT #41,USING "####";TIME/5Q 
1778 IF SC44 THEN 5C=g:AF=JA 

1788 PRESET (125,109) 

1799 PRINT #1,USING "####";SCORE 

18298 RETURN 

Targ 

1328 ‘KX resultaat 4% 

1838 COLOR 15,4,4:SCREEN GQ 

1848 PRINT 

1858 PRINT"Resultaat:"SC"punten. " 
1869 IF SC=8 THEN PRINT" bent gezakt woor uw e 
xamen!' 

1874 PRINT 

1338 RETURN 
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CODE KRAKEN 


Het zou hier om een spannend spionageverhaal kunnen gaan waarbij 
we zo snel mogelijk een brandkast moeten kraken om aan belangrijke 
informatie te komen. De code van de brandkast kent u natuurlijk nog 
niet en het is de vraag in hoeveel beurten u die kunt vinden. Doe er niet 
te lang over … stel dat er iemand komt! 

De code is opgeslagen in een computer en we weten dat die code 
bestaat uit drie series van 20 enen en nullen, waarbij we steeds uitgaan 
van de volgende serie: 


OlHOIOHOHIIOIOIOOIOI 


Die drie series zijn door „cyclische verwisseling’ verkregen, in gewoon 
Nederlands wil dat zeggen dat getallen van het rechteruiteinde naar lin- 
keruiteinde worden verplaatst. Hier zien we een voorbeeld van 3 van 
dergelijke series tesamen met de som van die getallen voor iedere 
kolom. 


RIJ 1 —OOIOIOLILOIOIOI IO IO 
Rij 2 OI 1 LOIOIOI HOIOIOO OI 
RIJ3 — OI OOIOIOIIIOIOIOI IO 
SOM — 022 1212222303031 1 303 


Deze series zijn natuurlijk voor u verborgen. Sterker nog u moet deze 
series weer zien terug te vinden. Als het spel begint krijgt u ook drie rijen 
getallen te zien, deze zijn ook verkregen door cyclische verwisseling van 
de reeks … helaas deze verwisseling is willekeurig. 

Een voorbeeld: als de bovenste rij 2 posities is opgeschoven, de mid- 
delste 4 en de onderste 8, dan zien we op het beeldscherm: 
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Merk op dat we nu niet de som van iedere nieuwe kolom te zien krijgen, 
maar juist het verschil tussen deze som en de eerste (verborgen) som. 
Voor de eerste kolom geldt bijvoorbeeld dat de verborgen som 0 is en 
aangezien de som op het beeldscherm 2 is krijgen we nu 2 — 0 = 2te 
zien. Bij de tweede kolom zijn zowel de verborgen som als de nieuwe 
som 2 dus we zien 2 — 2 = 0. We moeten nu steeds de rijen verschui- 
ven en wel tot ze precies gelijk zijn aan de verborgen series. In dit geval 
zijn alle verschillen natuurlijk O, kortom de onderste serie op het beeld- 
scherm toont dan alleen maar nullen. De bovenste rij heeft nummer 1, 
de middelste 2 en de onderste nummer 3. Als we bijvoorbeeld 
aangeven: 


RIJ: 2 
STAPPEN: 1 


Dan zal de middelste rij een positie naar rechts opschuiven. 
Hoeveel beurten heeft u nodig om de code te kraken? We kennen 
super-spionnen die de klus in 10 beurten klaren 


18 ‘MSX-code kraken 

en 5 

39 CLEAR 509 

43 DEFINT A-2 

50 DEF FNRNCX)=4+INTCXXRND(XD) 

69 DEF FNWCR,I)=ASCCMIDSCBSCR), ID) -48 
78 DEF FNJA=INSTRC"Jj",INPUT$C4))>0 
89 DU=FNRNC-TIME/2) 

98 

198 ‘XX hoofdprogramma XX 

118 GOSUB 219’initiatie 

128 GOSUB 368’schudden 

138 GOSUB 579’situatie 
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GOSUB 438‘ invoer 

GOSUB 579’situatie 

IF NOT KLAAR THEN 149 

GOSUB 748‘einde 

IF WEER THEN IF OUD THEN 4120 ELSE RUN 
END 


‘KK initiatie XX 

SCREEN 9 

COLOR 15,4,4 

WAAR=-1 
SERIE$="101091910111091010110" 
SL=LENCSERIES) 
LRS=SPACES(35)I+STRINGSCIS, 8) 
LIS=STRINGSCSL, 1952 

DIM B$C3),BEGCSL) 

GOSUB 36Q‘schudden 

FOR I=1 TO SL 

BEGCIJSFNWC1, ID+FNWC2, ID+FNWC3, 1) 
NEXT I 

RETURN 


‘XX schudden X% 
FOR I=1 TO 3 
B$CIJ=LEFTSCRIGHTS(SERIES, FNRNCSLODO)D+SERIES, 


NEXT I 
ZET=@ 
RETURN 


‘KX invoer XX 

LOCATE 9,8 

PRINT LR$;: INPUT" Rij";R$ 

R=VALCRS) 

IF R<4 OR R>3 THEN PRINT"Een getal tussen 1 
3 aub":GOTO 449 

GOGCATE 0d 

PRINT LR$;:INPUT" Stappen";ST$ 

ST=VALCST$) 

IF ST<1 OR ST>29 THEN PRINT"Een getal tusse 
en 29 aub":GOTO 488 

PRINT LR$ 
MID$CBS(R),4)=RIGHTSCBSCR),STI+BECRD 
ZET=ZET+1 
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A 
AM k \ 
Ned 
NT 
k bn e p 
Nin 
Ne 
fj 


RETURN 


‘XX berekening en uitvoer XX 
LOCATE 12,8,9 

PRINT" Aantal zetten:";ZET 
LOCATE 4,12, 

FOR Iz1 TO 3 

PRENT TARS TREO 
NEAT 1 

PRINT TABC(10);LI$ 

PRINT TAB440); 

KLAAR=WAAR 

FOR I= TO SL 


SOM=ABSCFNWC1, ID+FNWC2, ID +FNWC3, ID) -BEGCIJ) 


KLAAR=EKLAAR AND SOM=g 
PRINT CHR$£48+S0M); 
NEXT 

RETURN 


‘KX einde XX 

LOCATE 9,21 

PRINT" Wilt u nog een keer? "; 
WEER=FNJA 


IF WEER THEN PRINT"ja" ELSE 839 
PRINT TAB(13) "Dezelfde code? "; 


OUD=FNJA 

LOCATE 8,21 

PRINT LR$:PRINT LR$ 
RETURN 


, 


BLACKBOX 


Slechts gewapend met een laserstraal moet u bij dit spel trachten te ont- 
dekken waar zich binnen een Blackbox atomen bevinden. 

Deze Blackbox bestaat uit 8 x 8 x 8 kubusjes. De atomen kunnen in elke 
kubus verborgen zijn behalve in de kubusjes van de buitenste laag. Er 
zijn altijd 5 atomen in de Blackbox verborgen. De atomen zullen de la- 
serstralen steeds reflecteren of afbuigen en wel volgens de volgende 
regels: 


— Een laserstraal die een atoom raakt wordt weer in de richting 
van waaruit hij kwam gereflecteerd. 


— Een straal die door een kubus grenzend aan een kubus met 
een atoom gaat, zal onder een rechte hoek worden 
teruggekaatst. 


ante mien: ee 


EE 5 


1 
1 
bmm dn bn el 
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ting gereflecteerd worden die verkregen wordt door de optel- 


richting een kubusje met een atoom aan grenst, zal in een rich- 
ling van 2 rechthoekige reflecties. 


— Een straal die gericht wordt op een kubus waar in diagonale 


ann fe — en 


med 


hr nhandem. 


nel denise 
i 
É 


| 


De Blackbox is genummerd als volgt: 


REKER EN, 


| 


NESNEREN 
ERDER EE LE 


@NOW TON 


a 


Pa 
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De computer zal allereerst om de coördinaten P1, P2 en P3 vragen. Dit 
zijn de coördinaten van het kubusje van waaruit u de laserstraal de 
Blackbox wilt laten binnengaan. 
Het is duidelijk dat deze coördinaten steeds een kubusje van de schil 
moeten aangeven, m.a.w. minstens één van de coördinaten moet 1 of 
8 zijn. 
Als u eenmaal een schot heeft ingevoerd, zal de computer vertellen in 
welk punt de straal de kubus weer verlaten heeft. Bedenk dat één straal 
door meer dan één atoom gereflecteerd kan worden. 
Probeer in een zo gering mogelijk aantal beurten uit te vinden waar de 
atomen zich bevinden … maar we waarschuwen, gemakkelijk is het ze- 


ker niet! 

10 ‘MSX - Blackbox 
rl Md 

38 DEFINT A-2 


DEF FNJA=INSTR("Jj",INPUT$C19)>0 
DEF FNRICX)=(X28)-(X=1) 

DEF FNRNCKDEL+INTCHARNDCXDD) 
DU=FNRNC-TIME/2) 


‘XX hoofdprogramma XX 

GOSUB 248’ init 

GOSUB 36B’‘schot 

GOSUB 56Q'‘resultaat 

PRINT"Nogy een schot wagen? "sj 

IF FNJA THEN PRINT"ja":G0T0 119 
PRINT "nee" 

PRINT" Wilt u posities raden? "; 

IF NOT FNJA THEN PRINT"nee":G0OTO 138 
PRINT" ja" 

GOSUB 689’‘antwoord 

IF ARCAA THEN 139 

PRINT"U heeft"AS"schoten afgevuurd," 
END 


‘KX initalisatie 4% 
AFM=8:AA=5: AS=0 

DIM BCAFM+1,AFM+1,AFM+1) 
FOR I=1 TO AA 
CXEL+FNRNC6) 
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290 CY=1+FNRNC6) 

308 CZ=i+FNRNC6) 

310 IF BCCXH,CY,CZICIB THEN 280 
320 B(CK,CY,CZI sl 

330 NEXT I 

340 RETURN 


368 ‘4x voer schot in XX 

379 AS=AS+1 

388 GOSUB 450B’‘coordinaten 

330 RX=FNRICCX) 

408 RY=FNRICCH) 

410 RZ=FNRICCZ) 

420 IF RX“2+RY“2+RZ“2=0 THEN PRINT"Niet aan het 
oppervlak":G0T0 3860 

430 RETURN 

448 ’ 

4508 ‘XX voer coordinaten in XX 

468 PRINT"Vul coordinaten in:" 

478 FOR I= TO 3 

4820 PRINT USING"CH# =";I; 

436 INPUT € 

508 IF C<41 OR C)8 THEN PRINT"Tussen 1 en 8 s.v. 

pr.":GOTO 480 

516 IF I=4 THEN CX=C ELSE IP Ia THEN CYs=C ELSE 
CZ=C 

529 NEXT 1 

538 RETURN 

„B * 

So 

560 ’XX resultaat schot XX 

570 FOR TX=-1 TO 4 

580 FOR TY=s-1 TO 1 

598 FOR TZs=-1 TO 1 

640 IF BCCX+TX,CH+TY,C2+T2) 458 THEN RX=RX-TX:RY 
aRY-TY:RZ=RZ-TZ 

610 NEXT TA, TY, IN 

628 RX=SGNCRXI:RY=SENCRYI :RZEEGNERZD 

638 CHSCHA+RA:CY=CHERY:CZ=CZ+RZ 

649 IF CX28 AND CX€3 AND CY>0 AND CYCI AND CZ)9 
AND C2£9 THEN 570 

650 PRINT"Resultaat: "CX-RX;CY-RY;CZ-RZ 

668 RETURN 

670 ’ 
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680 
690 
708 
710 
728 


‘XK raad positie XX 

PRINT" kunt nu raden naar een positie" 
GOSUB 458’‘coordinaten 

IF BCCX,CY.,C2)=0 THEN PRINT"Fout!":RETIJRN 
IF BCCK,CY,CZ) CH THEN PRINT"Die had u al ge 


raden!" :RETURN 


730 
740 
750 
766 
778 


PRINT "Goed!" 

B(CX,CY,CZI==-1 

AR=ZAR+1 

PRINT"I heeft nu"AR'atomen geraden," 
RETURN 
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SCHATZOEKEN 


Een verre reis naar een verborgen schat … wie zou dat niet willen! We 
gaan over woeste bergen, lieflijke dalen, onbegaanbare wegen en dorre 
woestijnen om dan uiteindelijk de verboden plaatsen te bereiken waar 
de glinsterende schatten verborgen zijn. 

Lijkt u dat wat … ja … dan is dit echt een spel voor ul 

U wordt hoog in de Rocky Mountains neergezet en u krijgt een kaart 
waarop al de verborgen schatten staan en tevens wat ze waard zijn. 
Om die schatten te bemachtigen moet u over smalle slingerende, kort- 
om gevaarlijke paden gaan, één verkeerde stap en een zekere dood 
wacht u. 


hè 


De cursortoetsen gebruiken we om de richting aan te geven en de spa- 
tiebalk om ons vervolgens voort te bewegen. Let wel: druk niet eerst de 
spatiebalk in, dat is zelfmoord! We bemachtigen de schatten door er 
simpelweg op te gaan staan. 

Maar wacht … zo eenvoudig is het niet. U dacht toch niet werkelijk dat 
er niet nog ergens gevaar dreigde?! De schatten die u zoekt worden he- 
laas zorgvuldig bewaakt en wel door zeer gevaarlijke, angstaanjagende 
Kamikaze-vogels die u aanvallen. Als ze u in de gaten krijgen raken ze 
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buiten zichzelf van woede. De enige manier om ze te stoppen is door 
op de spatiebalk te drukken zonder een richting aan te geven. 

Durft u de uitdaging nog aan te nemen …? Oké, begin in de hoek link- 
sonder en verzamel zoveel schatten als u kunt, breng ze in veiligheid 
door de uitgang rechtsboven. Dit levert bonuspunten op en bovendien 
de kans om meer schatten te vergaren. 

Helaas zult u merken dat de Kamikaze-vogels steeds agressiever 
worden. 

Grote risico's dus, niettemin de moeite waard. Dus … verzamel uw 
moed en … sterkte! 


16 ‘MSX - Schatzoeken 

23 ‘Arend Rensink 

38 ’ 

48 DEFINT A-Z 

50 DEF FNJACXS$)=INSTR("Jj",LEFT$C(X$,11))>0 
63 DEF FNRNCX)E4+INTCXERNDCX)) 

79 DU=FNRNC-TIME/2) 


98 GOSUB 264’'init 

196 GOSUB 690’start 

119 ON STRIG GOSUB 929,9240 
128 ON SPRITE GOSUB 1429 

138 ON INTERVAL=5@ GOSUB 1179 
140 SPRITE ON 

158 IF PYC1 THEN GOSUB 798‘nieuwe ronde 
160 IF AV THEN GOSUB 1279 

178 IF NOT KL THEN 158 

188 STRIGCST) OFF 

198 GOSUB 1460 ’‘einde 

209 IF INKEYS$C>"" THEN 299 
218 INPUT"Nog een keer" ;AN$ 
228 IF FNJACAN$) THEN RIN 

2308 SCREEN B:COLOR 15,4,4 

248 END 


260 ‘XX initialisatie XX 
279 JA=-1:NEE=G 

288 SOUND 7,14 

298 COLOR 15,5,5 

300 SCREEN 1,,0 

310 B5=BASEC5) 
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B6=BASE (6) 

VPOKE B6+6,&H1A 

VPOKE B6+7,&H1A 
SP=6:GO0OSUB 574’‘sprite 
SP=1:G0SUB 570’sprite 
RETURN 


“KK bord XX 
INT 


PRINT'E 2E CR BE 
PRINT'EER MB nn 
PRINT! GMA OEE BER UE 
PRINT'E EEE F1 n 
PRINT'NAMR Ennn 
PRINT'ER BEEBER HE 
PRINT'MDR OCR OE B 


PRINT')QR mmm me 
mn 


PRINTEN EE CER KN 
PRINT" B im EB Ee 
PRINT OEDEEM HE 
PRINT'EE EE Om 
PRINT 
RETURN 


‘XX vul sprite in XX 


SP$=" Li 
FOR I=1 TO 8 
READ HX$ 


SP$=SPS+CHRSCHAL CG" EH" +HAEDD 
NEXT I 

SPRITESCSPj=SP$ 

RETURN 


DATA 18,31,57,F6,57,31,18,00 
DATA 3C,99,7E,18,18,3C,24,66 


‘XK start spel XX 


LINE INPUT"Joystiecks (jsn) ";AN$ 
IF FNJACAN$) THEN SK=1 ELSE SK=G 


CLS 

LOCATE 9,16 
PRINT"Ronden * 
PRINT" Winst " 
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PRINT"Tijd ik 

RETURN 

‘KX nieuwe ronde X% 
INTERVAL OFF:STRIGCSK) OFF 
LOCATE 9,6 

GOSUB 396’bord 

PX=3:PYai4 

PUT SPRITE 4, CSKPAI SKP Y=L),L 
RO=ERO+1 

LOCATE 18,16 

PRINT USING "##";RO 
TD=30:TG=TD-2-FNRNC4E) 
INTERVAL ON:STRIGCSK) ON 
RETURN 


‘XK beweging KX 

IF INKEY$S4>"" THEN 939 
ST=STICK(SK) 
VW=zST=0 

IF VW THEN SOUND 6,45:PLAY"","S1M7T9G0LZA" 
IF VW THEN KL=ENOT AV:02=1:60T0 1100 
NX=PX+(ST=7)-CST=3) 
NY=PY+(ST=1)-(ST=5) 

IF NY>14 THEN 1199 
PK=UVPEEKCB5S+NX+324NY) 

IF PK=&HDB THEN 1199 

IF PK=&H29 THEN 10886 

IF NOT PLAYC@) THEN PLAY"S1M1009907C" 
SC=2SC+(PK-48) KRO 

GOSUB 1129’score 

VPOKE BS+NX+32KNY,&H20 

PáaN4:PYaNY 

PUT SPRITE 4, {8KPX,8KPY-1),1 

RETURN 


‘XX toon winst XX 
LOCATE 7,17 

PRINT USING "S$$##R";SC 
RETURN 


‘XK tijdroutine XX 
TD=TD-1 
LOCATE 9,18 


1209 
1219 
1228 
1239 
1240 
1258 
1268 
1270 
1280 
1298 
1368 
1318 
1328 
1330 
1340 
1359 
1369 
1370 
1389 
1394 
1498 
1418 


PRINT USING "###";TD 

IF TD=8 THEN KL=JA:0Z2=3:RETUJRN 
IF AV OR TD2TG THEN RETURN 
AVv=JA 

TG=TD-2-FNRNC45) 

RETURN 

‘KK vogelvlucht #£%X 

VW=NEE 

SX=250 

SOUND 6,5 

SY=BPY 

PUT SPRITE 0,CSK vb 

IF NOT PLAYC8) THEN PLAY"","S12M39BAL4A" 
SX=5X-RO 

IF NOT VW THEN 1319 

SCESC+5SKRO 

GOSUB 1128’score 

PIJT SPRITE 8, (0,6),9 

AV=NEE 

RETURN 


, 
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1420 ’X4 opgevreten XX 

1439 VW=JA:KL=JA:02=2 

1448 RETURN 

1450 ’ 

1468 ’X% einde 4% 

1478 LOCATE 9,20 

1488 ON O2 GOTO 1494,1519,1539 

1498 PRINT"U heeft uzelf neergeschoten!" 
1506 RETURN 

1519 PRINT"Een van de vogels heeft u","te pakke 
n genomen." 

1529 RETURN 

1538 PRINT" Uw tijd is om." 

1540 RETURN 
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LT. - DE ADVENTURE VAN DE EEUW 


In deze spannende adventure (avontuur) gaat u een kijkje nemen in de 
duistere ingewanden der aarde. U zult ongetwijfeld het vreemde wezen 
dat daar leeft ontmoeten. Zijn naam is natuurlijk |.T. wat zoveel betekent 
als Intra Terrestrial. 

Als u nog Nooit eerder een adventure heeft gespeeld hoeft u zich geen 
zorgen te maken over de regels, die zijn er namelijk niet! Kortom u moet 
alles zelf uitzoeken. U reist beneden het oppervlak van moedertje aarde, 
u zult moeilijke en ogenschijnlijk vreemde taken moeten uitvoeren en 
grote gevaren onder ogen durven zien … het gaat tenslotte om een 
avontuur. Wordt dit alles u teveel type dan „help”' in en kijk wat de com- 
puter u te zeggen heeft. 


Ziezo, type nu het spel maar in, sluit een levensverzekering af, geef het 
RUN commando en … veel succes op uw reis! 


VU SMS =H 


30 CLEAR 5606 

40 DEFINT A-Z 

54 JA=-1:NHEE=G 

69 DEF FNRNCH2=A+INTCHERNDCADD 

74 DEF FNPR=FNRNC140) 

20 DEF FNJAC4S$)=INSTR("Jj",LEFT$C4$,1000 
30 DU=FNRNC-TIME/2) 


116 ‘4% hoofdprogramma #% 

126 GOSUB 23950" init 

130 MV=8:NR=0:CLS:GOTO 159 

146 GOSUB 2148’ invoer 

158 GOSUB 424 “handelingen 

166 GOSUB 330 ’‘uitvoer 

176 IF NU<6 THEN 140 

188 PRINT"Gecondaoleerd! U bent overleden!" 
196 END 
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219 ‘XX invoer 4% 

224 NR=G: M= 

238 PRINT: INPUT"Wat mu";c% 

248 FOR I=t TO 14 

254 IF INSTR(M$CI),CS$)=1 THEN MV=I:I=44 

260 NEXT I 

274 IF My=3 THEN PRINT"Ik begrijp u niet":RETUR 


2838 IF MVY>6 THEN RETURN 

230 NRERCRM,MUV):IF NRC>0 THEN RETURN 
349 PRINT"Daar kunt u niet heen," 
218 GOTO 224 


320 
3326 “KX uitvoer XX 
340 PRINT 


350 PRINT" bent in de "D$CRM) 

360 IF RM425 AND {NOT LA OR TC4)28 AND T41<>RM 
> THEN PRINT"Het is hier donker.":6G0T0 426 

970 FOR T=4 TO 42 

388 IF TCI2=RM THEN PRINT T$CI)" is hier" 

390 NEXT I 

468 IF LA AND RL>426 THEN PRINT"Uw lamp gaaat ui 
ts" rEASNEE 

416 IF LA AND RL>490 THEN PRINT"De hatterijen v 
an uw lamp raken leeg," 

429 FOR I=1 TO 6 

438 IF RCRM,I)<>0 THEN PRINT"U kunt "M$CI) 

440 NEXT I 

450 PRINT TABC83 "444" 

460 RETURN 

91 © 

439 “4X handelingen 4% 

498 IF NRS20 THEN RM=NR 

596 TH=4 

516 FOR I=1 TO 12 

528 IF T4IJ=RM THEN TH=l:I=12 

530 NEXT I 

544 HL=d 

550 FOR I=í1i TO 6 

560 IF HCI,4)>=RM THEN HL=l:I=6 

578 NEXT 1 

230 ‘algemene handelingen 

538 IF RM<12 AND RRED2 THEN GOSUB 2790 

€94 RL=RL-LA 
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610 
628 
650 


‘swelerhandelingen 
PRINT 
IF MVÈ6 THEN ON MV-6 GOSUB 7TO9,290,950,1030 


‚1198,1276,1354,1420 


640 
650 
668 
67 
€20 
630 
748 
7168 


‘spelreakties 

PRINT 

ON HL GOSUB 1546,1820, 2930, 2124, 2220, 2490 
RETURN 

‘XX spelerhandelingen XX 

‘doden 

IF HL=8 OR HLÒ4 THEN PRINT"Hier kunt u alle 


en de tijd doden, ":RETURN 


Tg 
130 
zel 
740 
Le 4 
164 
zE} 
TT 
dig. 
780 
790 
240 
214 
laan 
524 
230 
waar 
240 
250 
waar 


TF=T:G0SUB 2726 

IF B2=4 THEN PRINT"Met blote handen? Dat is 
fmoord!":RETURN 

PRINT" U tracht de "H$CHL)" te doden” 
PRINT" U valt hem aan met uw zwaard," 

IF (HL=4 OR HL=ë) AND (HCHL,2)=6 OR HCHL, 2) 
THEN 789 

IF FNPR£56 THEN PRINT"maar hij ontwijkt han 
‚":60TO 808 

PRINT"en u geeft een enorme houw!" 

HCHL, SI=HCHL, 3) =1 

IF FNPR>28 THEN 844 

PRINT"Lit is uw kans! U kunt opnieuw", "toes 
voor hij zich herstelt." 

INPUT"Wilt u dat";AN$ 

IF FNJACAN$) THEN PRINT" heft wederom uw z 
d‚":GOTO T6G 

IF HSHL,32>1 THEN RETURN 

IF H&HL,32=1 THEN PRINT"Uw slachtoffer is z 
gewond. ":RETIJRN 

PRINT" U heeft hem gedood," 
HCHL,1>=8:TCHL+Bj=ERM: HL=G 

RETURN 

‘help 

PRINT" Mogelijke commando's: " 

FOR I= TO 44:PRINT M$CI):NEAT 
PRINT:PRINT" Sla een toets aan" 

IF INKE!N$="" THEN 239 

RETURN 

‘meenemen 
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263 IF (T41)=8 OR TC1JERM) AND LA OR RMÒ24 THEN 
239 

978 PRINT"U ziet geen hand voor ogen, laat", "st 
aan iets om mee te nemen," 

980 RETURN 

930 IF TH=8 THEN PRINT"Er is hier niets om mee 
te nemen. ":RETURN 

1088 PRINT"U pakt "T$CTH) 

1818 P6LP)=TH:LP=LP+4:TCTHi=0: TH=g 

1923 RETURN 

14308 ‘neerlegden 

1848 IF LP=4 THEN PRINT"U heeft niets, ":RETURN 

1658 INPUT"Wat wilt u neerleggen";D$ 

1660 TP=@ 

1079 FOR I=1 TO 12 

1683 IN=INSTRCT$CIJ,D$) 

1696 IF IN=4 OR IN=5S THEN TP=I:I=1ë 

11009 NEXT I 

1118 IF TP=8 THEN PRINT"IKk begrijp u niet":RETU 

RN 

1128 GOSUB 2728 

1139 IF B2=8 THEN PRINT"U heeft helemaal geen 

T${TP):60T0 1959 

1140 PRINT"I heeft "T&CTP)" neergelegd." 
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115% TH=PCBZ):TCTHOERM:LP=LP-1:PCB2)EPCLPD 

1164 INPUT"Wilt u nag iets neerleggen" ;AN? 

1178 IF FNJACANS$) THEN 1050 

1138 RETURN 

1198 ‘status 

1288 IF LP=i THEN PRINT"U bezit niets anders da 
n uw kleren":GOTO 1250 

1218 PRINT"U heeft: " 

1220 FOR Ist TU LPL 

1238 PRINT T$CPCIJ) 

1248 NEXT I 

1258 PRINT"U kunt nog";5=-NW; "wonden overleven" 

1260 RETURN 

1278 ‘verbinden 

1280 TP=6:GOSUB 2729 

12394 IF BZ2=4 THEN PRINT"Dat gaat niet zonder ve 
rhand.":RETURN 

13008 PRINT"Dat ziet er niet zo best uit!", "Het 

verband is nu wel op." 

13148 FOR I= TO 508:NEXT 

1328 PRINT"Goed, zo kunt u wel weer even voort. 


1336 NW=G:LP=LP-1:P(BZ)=P(LPD 

1348 RETURN 

1358 ‘lamp aan/uit 

1268 IF TC422@ AND TC42<>RM THEN PRINT" Zonder 1 
amp zeker !":RETURN 

1378 IF RL>1420 THEN PRINT"De batterijen zijn le 
ea." :RETURN 

1320 LA=NOT LA 

1398 PRINT"U doet de lamp "; 

1400 IP LA THEN PRINT"aan,”". ELSE. PRINT "uit. ' 
1418 RETURN 

1424 ‘lezen 

14320 TP=4:G0OSUB 27240 

1446 IF B2=0 THEN PRINT"Er is niets te lezen!": 
RETURN 

1450 IF NOT LA AND RM425 THEN PRINT"Het is te d 
onker om te lezen. ":RETIJRN 

1468 Té="bD4 rszzs ddm jndjidradhbdos hm ches" :605 
UB 2610 

1476 T$="andj. Da rszzs fdrhbgadudm: mddl ddm":G 
O5SUB 2610 
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14234 T$="4dkkdanms dm vze azri dm fnnh ads":605 

UB 2618 

1499 T$="hm cd azaadbtd.":505UB 26198 

15093 PRINT"Dat is alles," 

1518 RETURN 

15e * 

1538 ‘XX spelhandelingen 4% 

3544 Slee 

1556 IF TH=3 THEN HC1,2)=32:TTH)=0: TH=0 

1568 ON H(1,2) GOTO 1578,1619,1640,1776, 1800 
150 PRENT DABCSN RR Kreta AR 

1588 PRINT'De intra=terrestrial is hier, Hij", " 

praat heel opgewonden, maar u" 

1598 PRINT"verstaat hem niet," :PRINT 

1698 HC1,2)=2:RETIJRN 

1619 T$="H.3. kzzs ldajdm czs ahi dayfd cnars":6 
OSUB 2619 

1629 Té="yddes. Ghi jhijs udasvhiedkc.":GOSUB 2 

6140 

1639 RETURN 

1648 T$="H.5. cahmje zkrne sahi thsfdcannfe":6505 

UE 2619 

1658 T$=z"vzr. Mz ddm onnrid adfhms ghi vdda":60 
SUB 2614 

1664 T$="sd oazsdm, dm mt itms t adl vdk":G0SUR 
2614 

167% T$="udarszzm!":GOSUR 2610 

1638 T$="Ghi ydts: ‘Fz nmedafanmer dm yndj cd": 

GOSUR 2619 

1694 T&="mtkkhsx-anl. Ddm jazmjuhmmhfd oane":60 

SUB 2610 

1766 T$="vuhk zkkd kdudm daldd udamhdeshfdm,":6G05 
UB 2618 

1718 T$="Hj ada lds gds 1nmrsda fdunbasdm czs": 
GOSUEBE 2610 

1729 T&="cd anl advzzjs, 1lzza hj adm mt" :GOSUB 

2618 

1739 T$="unkkdchf thsfdots. Ctr... mt Inds":605 
UB 2619 

1740 T$="t ognadadm cd zzaecd sd adoedm!’":G0SUB 
2614 

1750 PRINT"Dan zakt I.T. ineen,” 

1768 HEL, 2)=4: RETURN 
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1778 PRINT"I.T. is blijkbaar in coma. Nu moet u 
",!alles alleen doen!" 

1784 PRINT"Veel succes!" 

1798 Hil,2j=5: RETURN 

1888 PRINT"I.T. is hier. Hij is in coma." 

1814 RETURN 

1824 ‘koekjesmonster 

1534 IF TH=3 THEN HC2,25=5:T6THi=0: TH=g 

1848 ON HCZ,2) GOT) 1858,1280,1966,13269,1950, 24 
1 

1858 PRINT"Er is hier een enorm monster. Het", " 
ralt met zijn ogen." 

1564 PRINT"Het brult: ‘Ben jij een koekief’" 
1874 Hi2,27=2: RETURN 

1884 PRINT"Het monster hrult steeds harder:","B 
EN JIJ EEN KOEKIE 7UIS 

1898 Hi2,2)=3: RETURN 

13968 PRINT"Het monster blijft brullen en wordt" 
‚"tamelijk agressief," 

1918 HCZ,2)=4: RETURN 

1920 PRINT"Het monster geeft u een verschrikke- 
tatlajke Klape Di hoord toltr” 

1938 NlaNW+1 
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H{2, 22EFNRNC 3) +1: RETURN 
PRINT"Het monster zegt werrast: koekies?!" 
PRINT"Het hbeaint meteen te eten. Een luide 


PRINT" be Bae BEND: Be 
FRINT"en het valt in slaap." 
R£16,6)=1 


H{2,25=6:RETURN 

PRINT"Het monster slaapt." 

RETURN 

‘slang3 

PRINT"Er is hier een glibberige slana." 

IF FNPR<40 THEN RETURN 

IF LP=1 OR FNPR<50 THEN 2996 
RH=ZFNRHSLP-10:TAPARNJIJ=L2+EFNRN(L2):LP=ELP-1 


:PCRNO=PCLP 


2086 PRINT"Slinks jat hij iets," 

2490 PRINT"Hij glipt weg." 

2188 H(3,4)=HC3,12+3: IF HC3,19224 THEN HC3,4d=H 
(3,1)-8 

2118 RETURN 

2128 ‘hellehond 

2138 ON HC4,2) GOT) 2149,2170, 2209 

2148 PRINT"Er is hier een reusachtige hellehond 
2159 PRINT"Het lijkt erop dat hij u wil opeten. 
2160 H(4,23=2:RETURN 

2179 PRINT"De hellehond valt aan en bijt hard," 
2128 NUENW+1 

2199 HC4,27=3: RETURN 

2290 PRINT"De hellehond aromt en staat klaar"," 
voor een nieuwe aanval.” 

2210 HC4,2IEFNRNC2) +1: RETURN 

2228 ‘bom 

2238 PRINT"De nullity-hbom is hier. Er zijn drie 
2248 PRINT"draden die de bom verbinden met een" 
2250 PRINT"tijdklok:" 

2268 PRINT" een hruine <b)," 

2278 PRINT" een gele Gat 

2230 PRINT" en een rode Cr)" 

2293 PRINT 

2393 PRINT"U moet er twee losmaken om de bom" 
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2319 PRINT"onschadelijk te maken." 

2328 PRINT"Welke maakt u het eerst los? ";:L1$= 
INPUTSCHI:PRINT L41$ 

2338 PRINT"Welke als tweede? ";:L2$=INPUTEC4D:P 
RINT L2$ 

8340 IA=ZINSTRC" rgb",L1$)-1 

2358 I2=INSTRC" rgb",L2$)-1 

2360 IF I4<14 OR 14123 OR I2€41 OR I2)3 THEN PRINT 
"Pas op! Verkeerde letters!":GOTO 2320 

2378 IF ASC(LASIKASC(L2$)I=11742 THEN 2450 

8288 PRINT" X Een enorme explosie 4" 

2390 PRINT" |! Rotsblokken !* 

2400 PRINT" ! Stofwolken '* 

2418 PRINT 

2428 PRINT"I bent moedig geweest; maar helaas," 
2430 PRINT"u bent niet aeslaagd,...." 

8440 END 

2458 PRINT 

2460 PRINT" 44#& GEFELICITEERD! X4%" 

2478 PRINT" bent geslaagd waar anderen faalden 
1u 

2488 END 

2498 ‘barbecue 

2508 IF TCZd=RM AND TCA2Ì=RM THEN TH=8:TCTHO=ERM 
:T42)=8:TC12)=0: HCE, 2)=2 

2518 ON H(6,2) GOT) 2529,2550,2530 

2523 PRINT"Er is hier een araote barbecue met" 
2530 PRINT"een fel vuur eronder," 

2546 RETURN 

2558 PRINT"Een enorme flits verlicht de omtrek, 


2560 PRINT"Een doordringende stank verspreidt", 
TENOR 

2578 HC6,2)=3: RETURN 

2589 PRINT"Alles is nu rustig; zelfs de vieze", 
"stank is weg," 

2598 H(6,2d=1:RETURN 

2698 ’ 

2618 ’‘X4 decodeer tekst X% 

2628 FOR I4=1 TO LENCT$) 

2630 C$=MID$CT$, I4, 1) 

2649 IF C$="zZ" THEN C$="4":60T0 2670 

2650 IF C$="2" THEN C$="Â":G6G0TO 2679 
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266 


IF C$Ì="a" AND C$€"z" OR C$>="A" AND C$C"Z 


"_ THEN CS=CHR$CASCHCS) +1) 


267 
2650 
2630 
eT0g 
2718 
2728 
2730 
2740 
2758 
2769 
2770 
2788 
2798 
2500 
2210 
2229 
2230 
2840 
2850 
2560 
2570 
2880 
8899 
2360 
2310 
2929 
2358 
2340 
2350 
2360 
2970 


MID$CT$,I1,1)=C$ 

NEXT I1 

IF NOT PR THEN PRINT T$ 
RETURN 


‘xk bezittingen 4% 

FZ=} 

FOR I=4 TO LP=4 

IF PCI)=TP THEN BZ=I:I=lP=-4 
NEXT I 

RETURN 


‘KK puzzel K% 

RT=RT+1 

IF RH=SCRT) THEN RR=RR+1 

IF RT<8& THEN RETURN 

IF RR=8 THEN 2899 

PRINT"Het wordt opeens aardedonker, Het" 
FPRINT"lijkt of iets u optilt. Even bent u" 
PRINT" buiten bewustzijn," 

RT=i:RR=i:RM=i 

RETURN 

PRINT"L hoort een vreemd geluid, alsof er" 
PRINT"iets verschoven wordt," 
PRINT:PRINT"Alles is weer stil." 

RCA, LINES 

RETURN 


‘XK initialisatie #% 
FRINT"Even geduld a.u.kb," 
DIM R436,6),D$(36),MEC44,HC6, II ,HSCOIN, TCL 


2),T$C12),PC12),D68) 


2280 
2230 
2000 
4 

3019 
3020 
3030 
2444 
3456 
3060 
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‘verkindingen 
FOR I= TÔ 36 
RCI,4j=I+4:RCI,2d=I-1:RCI,3)=lIt4:RCI,4)I=I= 


NEXT I 

FOR I= TO 24 STEP 12 
FOR J=1i TO 9 STEP 4 
RCI+J+3,4)=0:RCI+J,22=0 
NEXT J 

FOR J=i TO 4 


RCI+J+8,3)=0:RCIAJ, 49 =0 
NEKT J,I 


en 


3118 READ RM,MV:RARM, MU) =g 

3126 NEXT I 

3136 “variabelen 

148 RM=36:BZ=i:LP=i:RL=d:LA=d:NW=d:RT=d: RR=d 
158 ‘heschrijwvingen 

3168 PR=-1 

2170 FOR I= TO 14:READ MECI):NEXT 

3138 FOR I=1 TO 12:READ T$:GOSĲUB 2618:T$4I)=T8: 


3190 FOR I= TÔ 6:READ T#&:60SUB 2618:H$CIj=T4:N 


3288 FOR I=1 TO 36:READ T$:50SUB 2610:D44I)=T8: 


218 FOR I=i TO 12:READ TCI):NEXT 
3224 FOR I=1 TO 6:READ HCI,4),HCI,32:HEI, 20=1:N 
EAT 


3238 FOR I= TO 8:READ SCI) :NEXT 
3244 PR=g 
258 RETURN 


3266 

9218 KATR LA edr eneen trente tedere reg 
All beren trl ssd trend 

3288 DATA oost,west,noord,zuid,omhoos,omlaag, do 

den,help,meenemen 

3296 DATA neerleaaen,status,verkbinden, lamp, leze 

n 

3368 DATA ed kzlo,ecd azri,ed vzsdayuzij,ades jnnja 

ndj,ads ozlekds 

3214 PATA ade udaazme,sds yvuzzac,ads jndjid,a4ds 
khbazzl uzm H.S. 

2388 PATA ads Inmrsdakhhbazzl,eod fdazjsd rkzmf,c 

d encdl gnme 

2338 DATA H.S.,lInmrsda,rkzmf,adkkdanme,azaadktd 
san 

3248 PATA adrdesfans,m-tans,fdadhld cdta, brmsank 

dizlda, f-fans,d-fans 

3359 DATA o-fans,uvzasd jzlda,z-fans,gnkkd fans 
sh-tfans,kddfsd, jkdhmd fans 

3364 DATA ansrtfans,rszmjfans,cazjdmfans,rkzmfdm 

fans,fdkd fans, uzmcazmj 

3374 DATA fkhaadafans,underdkfans, dhmedfakhs, fdj 
kdtacd fans,hirfans 

3328 PATA nodm okdj,anrrdm,anrtdm,anrrdm,anrntdm 
sanrtdm,antnrdm,antr dm 

3294 DATA anrrdm,anrrdm,anrrdm,anrrtrdm 

34086 DATA 34,30,28,21,14,15,13,0,0,0,0,8 

SAL DATA SArdrloyterltrdnesikr erpen 

Sted DAA Aaartnl Tore 
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DE WOLF EN DE VIJF KLEINE GEITJES 


Een sprookje van Grimm? Nee, het gaat hier om een spannend 
bordspel! Dit spel wordt gespeeld op een bord dat op het scherm ge- 
toond wordt. Als het spel begint zijn de geiten verdeeld over de onderste 
helft van het bord. Deze geiten zien er een beetje ongewoon uit: het zijn 
kleine vierkantjes die ieder een nummer bevatten. De wolf staat in de lin- 
ker bovenhoek van het bord. 

Daar gaan we dan! U bent de wolf en de computer bestuurt de geiten. 
U heeft gewonnen als u drie geiten opgegeten heeft. De computer wint 
als een van deze verbazingwekkende geiten u heeft verorberd. 

U kunt beginnen … onderin het beeld zien we: 


u mag … zetten doen 
Bijvoorbeeld 
u mag 2 zetten doen 


Het aantal zetten dat u mag doen ligt altijd tussen 1 en 3. De wolf, met 
andere woorden u, mag binnen een beurt zowel horizontaal als vertikaal 
bewegen, echter nooit diagonaal. Elke stap kan gezet worden doormid- 
del van de cursorbesturingstoetsen. Als de laatste stap van uw zet u op 
een vierkantje brengt waar ook een geit staat, dan is die geit van u. U 
mag nooit over een vierkantje gaan waar een geit staat. 

Er zijn in totaal 5 geiten en deze kunnen rustig over elkaar heensprin- 
gen. Geiten kunnen slechts in één richting bewegen. Het aantal stappen 
dat zij mogen doen staat steeds in de vakken zelf aangegeven. Dit aan- 
tal ligt altijd tussen de 1 en 5. 

Laten we eens een voorbeeld bezien. Stel dat bij een geit het cijfer 3 
staat. Dit houdt in dat deze geit de volgende stappen mag doen: 


3 stappen naar links, of 
3 stappen naar rechts, of 
3 stappen naar voren, of 


3 stappen naar achteren 
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Zo'n geit kan dus niet bijvoorbeeld een stap voorwaarts en twee stap- 
pen naar rechts doen. 
Als de wolf, kortom uzelf, een zet heeft uitgevoerd toont de computer: 


Nu is het mijn beurt 

Als de wolf weer aan zet is, ziet u 
u mag … zetten doen 

Aan het eind van het spel toont de computer: 
U heeft gewonnen 

Of, en dat is niet zo leuk: 


Ik heb gewonnen 


16 ‘MSX - De wolf en de 5 geitjes 


39 DEFINT A-2 

40 DEF FNJACXS)=INSTRC"Jj",LEFT$S(XS$,1))D0 
53 DEF FNRNCXOE4+INTCXERNDCH)D) 

63 DU=FNRN(-TIME/2) 


86 ‘4% hoofdprogramma XX 

98 GOSUB 218'init 

198 GOSUB 390’‘hbeginsituatie 
118 GOSUB 7328’‘verplaats wolf 
128 IF 5C=3 THEN 158 

130 GOSUB 919’verplaats geiten 
140 IF MX<509 THEN 119 

158 GOSĲUB 1289‘einde 

168 INPUT" Noa een keer";AN$ 
1278 IF FNJACAN$) THEN RUN 

188 SCREEN @:COLOR 15,4,4 

198 END 


218 ‘XX initialisatie XX 


229 AG=5:MB=5:AFM=10 
238 DIM BCAFM, AFM) 
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240 
250 
260 
278 


DIM G&CMB),XCAG), YCAG),ABCAG) 
DIM C$C1) 

‘figuren 
R$=CHRSCLBI+STRINGSC(2, 29) 
C$CBI=STRINGSC2,EHCGH) 
C$(CB)=CSCHIAREHCH CO) 
C$C1O=STRINGSCH, &HDO) 
C$C1I=CHCAIHREFCHCID 

W$=" WI" +R$E4" WN" 

6$="G erR$+'" u 

FOR Isi TO MB 
GECIJ=GS+CHRSC4HBHID 

NEXT 1 

RETURN 


‘XX beginsituatie XX 

COLOR ,„12:SCREEN 1 

‘kleuren 

BS=BASEC6) 

VPOKE BS+24,&H11 

VPOKE BS+26,&H66 

VPOKE BS+10,&HFS5 

‘teken bord 

FOR X=1 TO AFM 

FOR Ye=i TO AFM 

CA=G:GOSUB 638’‘teken hokje 
NEXT Y,‚% 

‘plaats wolf 
WX=i:WY=i:AB=FNRNC3) 
CA=-1:G0SUB 630’'teken hokje 
‘plaats geitjes 

FOR I=1i TO AG 
KSCIJ=FNRNCAFM): PCIJZENRNCAFMD 
IF BCXCI2, VCCI) THEN 560 
ABCIJ=FNRNCMB) 

CA=1:GOSUB 638’‘teken hokje 
NEXT I 

RETURN 


‘KK teken hokje XX 

ON CA+2 GOTO 659,669,679 

Kel: Yalt:T$=W$:GOTO 686 
T$=C${X+tY AND 1):6G0T0 689 
CA=l:%=XClj: Yael: T$=G$CABLIDD 
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689 LOCATE 2+2XX,2XrY-1,0:PRINT T$; 

6908 BX, Y)=CA 

738 RETURN 

ig 

tid 

739 ‘4 verplaats wolf XX 

740 LOCATE 4,22,9 

758 PRINT"u mag"AB"zetten doen, "; 

768 FOR I=1 TO AB 

778 ZT$=INKEY$:IF Z2T$="" THEN 778 

780 2ZT=ASC(ZT$) 

7390 RX=(ZT=239 AND WX21)-(2T=28 AND WXCAFMD 
309 RY=(ZT=38 AND WY>1)-CZ2T=34 AND WYSAFMD 
810 B=BCUX4A+RK, UT+RYD 

828 IF B<@ OR B>@ AND ICAB THEN 779 

339 AB(B)=0:SCHSCHSENCB) 

840 X=WX:Y=MY:CA=0:GOSUB 630 ‘hokje 

850 WAEWA+RX: WY eRY 

869 CA=-1:6G0SĲUB 638'‘hokje 

870 NEXT I 

839 AB=FNRNC3) 

839 RETURN 

998 ’ 

3108 ‘XK verplaats geiten XX 

928 LOCATE 8,22 

930 PRINT TABC4)"Nu is het mijn beurt. ie 
340 ‘evaluatie 

950 Mx=-409 


—Á me LT 
Ja ke 
“ / 


968 FOR I=1 TO AG 

978 IF ABCI)=3 THEN 1950 

9830 SD=ZABSCHCID-WUXI+ABSCHCID =D 

998 GX=2X(ID 

1998 GY=YCIJ+AB(I):6GOSUB 1120’evaluatie 
1819 GY=YCI)-ABLIJ:GOSUB 1120’‘evaluatie 
1429 Grz 

1938 GX=X(I)+ABCI):GOSUB 1129’‘evaluatie 
1948 GX=X4CI)-ABCIN:GOSUB 1129’‘evaluatie 
1059 NEXT I 

1960 ‘zet 

1978 K=X(BG):Y=YC(BG):CA=D:GOSUB 639’hokje 
1089 XC(BG)=BX: YCBG)=BY:ABSBGJ=FNRNCMB) 
1993 I=B6:CA=1:G0SUB 638’‘hokje 

1188 RETURN s 

z410 ° 

1129 ‘XX evalueer situatie XX 

1138 IF GX<4 OR GXDAFM OR GY44 OR GYHAFM THEN R 
ETURN 

1148 IF SD=zAB OR SD=AB-2 THEN ST=290 ELSE ST=8 
1159 IF BCGX,6Y2>0 THEN RETURN 

1169 A=ABSCGX-WX)+ABS(GTY-WY) 

1178 IF A=@ THEN ST=509:6G0T0 1250 

1188 IF A=AB OR A=AB-2 THEN RETURN 

1198 IF A<=MB THEN ST=ST+35 

1299 ST=ST-4BACCGHENKI + CG VEND 

1219 FOR J=4 TO AG 

1229 ST=2ST-1OKLCGHCIHKCIID LEERD) 
1230 NEXT J 

1240 IF ST+RNDCG) CMX THEN RETURN 

1250 MX=ST+RNDCG):BX=GH:BY26Y: Boel 

1268 RETURN 

1278 ’ 

1238 ‘X% einde X% 

1299 LOCATE B,22:PRINT TABC6) 

1308 IF 5C=3 THEN PRINT"U heeft "; ELSE PRINT"I 
k heb *; 

1313 PRINT"gewonnen, ";TABC(31) 

1323 RETURN 
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FORMULE 1 - RACE 


Dames en heren, eindelijk is het zover, de auto's staan klaar voor de 
start, de motoren ronken voor een wellicht uitermate spannende Grand 
Prix. 

Met het wereldkampioenschap in het vooruitzicht zal geen van deze 
coureurs een ander doel hebben dan te winnen. 

Het is schitterend weer en het circuit ligt er prachtig bij, droog, dus alle 
voorwaarden voor een zeer snelle race zijn aanwezig. Wie weet, mis- 
schien worden er zelfs records gebroken! De laatste controle wordt uit- 
gevoerd. De motoren draaien nu op volle toeren … het startsein wordt 
gegeven, daar gaan ze … !! ì 

Ziezo dat was de introductie van dit fraaie spel. Nu wat zakelijke informa- 
tie. Na het RUN commando stelt de computer u een aantal vragen over 
de manier waarop u het spel wilt spelen. Het is mogelijk om het met de 
joystick te spelen, maar ook via het toetsenbord kan het gespeeld wor- 
den. Indien u echter gebruik maakt van joysticks kunnen 2 auto's aan 
de race deelnemen. Speelt u met behulp van de cursortoetsen dan blijft 
u de enige deelnemer. 

U kunt kiezen uit enkele interessante circuits. 


1) Hockenheim (Duitsland) 
2) Anderstorp (Zweden) 
3) Interlagos (Brazilië) 


Door het intypen van het juiste getal maakt u uw keuze aan de computer 
bekend. 

Het aantal ronden dat u rijden wilt zal nu ingevoerd moeten worden. 
Hierna verschijnt het circuit op het scherm. 

Na de race wordt nog een overzicht gegeven van uw prestaties als 
autocoureur! 


19 ‘MSX - Formule 1 

ea ” 

39 DEFINT A-T:DEFSN6G U-2 

48 DEF FNJACXS$)2INSTR("Jj",LEFTSCXHS$, 1D) DD 
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60 


‘XX hoofdprogramma XX 


78 GC=1 
89 GOSUB 228’ init 
93 GOSUB 64B‘nieuw spel 


109 


GOSUB 878’circuit 

GOSUB 1250’start 

INTERVAL ON 

ON INTERVAL=14 GOSUB 1410 

ON SPRITE GOSUB 1810 

IF AFCAS THEN 4150 

INTERVAL OFF 

GOSUB 1880’‘einde 

INPUT"Nog een keer (J/N)";AN$ 
IF FNJACAN$) THEN 90 

END 

‘XX initialiseren XX 

MS=2 

DIM XCMS), YCMS),UXCMS),UYCMS),ARCMS), KL CMS) 


‚LTCMS),MTCMS),8SCMS),STCMS) 


250 
260 
278 
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KL{1)=5:KLC2)=8 

‘circuits 

AC=z3:MD=44 

DIM NM$CAC),LECACH,ADCAC),RECACH,DRCAC,MD, 1 


FOR Isi TO AC 

READ NM$C(I),LECI),AD(I),RECID 
FOR J=8 TO 1 

FOR Kei TO ADCID 

READ DRCI,K,J)Ò 

NEXT K‚J,I 

‘joystick 

INPUT"Joustiek (j/n)";ANTW$ 
JO=FNJACANTWS) 

‘konstanten 

F1=50:F2=60XF1 

WR=, 3 

‘geluid 

SOUND 7,6&B1910 

SOUND 6,19 

RETURN 


DATA Hockenheim (Duitsland),6.789,25,87,5 


470 DATA 161,38,141,32,41,138,127,66,125,36, 35,3 
4,55,44,103,14 

484 DATA 15,16,417,36,35,34,253, 32,51 

490 DATA 154,38,31,32,21,118,107,46,125,36,15, 9 
4,55,24,103, 34 

508 DATA 35,36,117,16,15,14,233, 12,41 

518 DATA Anderstorp (Zweden),4.018,35,123,8 

529 DATA 341,38,47,38,137,36,195,44,43,42,31,19 
r6lsees TI 24, L6D 

538 DATA 16,17,18,187,46,45,44,63,12,53,22,13,1 
4,15,34, 73, 42,51 

540 DATA 331,18,47,38,167,16,175,24,23,22,11,18 
‚81,42,93,44,185 

558 DATA 36,37,148,167,26,25,24,43,12,53,22,33,3 
Sides d 

560 DATA Interlagos (Brazilië),7.96,44,175.3 
570 DATA 351,50,127,176,225,114,79,32,31,70,67, 
18,31,52,91,38 

580 DATA 27,21,42,23,84,23,32,21,68,41,22, 33,24 
‚235,26,27,28,61 

598 DATA 38,27,36,85,194,25,34,53, 32,61 

688 DATA 341,38,197,156,205,94,53,12,11,58,67,3 
ee ne ee 0e Pe | 

618 DATA 27,28,41,62,43,84,12,68,61,42,53,44,25 
5,46,47,48,61,18 

628 DATA 16,65,194,25,14,33,12,21,11,21 

630 ’ 

648 ‘XX nieuw spel XX 

658 COLOR 15,4,4:SCREEN 8 

669 ‘spelkonstanten 

678 IF NOT JO THEN AS=1 ELSE INPUT"Een of twee 
spelers";AS 

688 IF AS<41 OR AS>MS THEN 679 

698 PRINT"Welke Grand Prix wilt u rijden?" 

798 FOR I= TO AC:PRINT I;CHR$C8)") "NMS$CID:NEX 
7 

7148 INPUT GC 

720 IF 6GC<1 OR GC>AC THEN 719 

738 INPUT"Aantal ronden”";AR 

748 IF ARC1 THEN 730 

159 ‘spelvariabelen 

760 AF=} 

778 FOR I=1 TO AS 

780 XCIJ=75:YCIJ=T+5KI 
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798 VXCID=B:VYCIJ=) 

808 LT(I)=0:MTC(I)=10000 
810 ST(I)=2 

820 ARCIJ=A:SSCIJ=G 

830 NEXT I 

849 NF=0 

850 RETURN 


879 ‘KX teken het circuit XX 

888 COLOR 1,3,3:SCREEN 2 

898 ‘auto 

9009 RESTORE 1149 

910 SP$="" 

929 FOR I= TO 8 

930 READ SP 

940 SP$=SP$+CHRSLSPD 

950 NEXT I 

964 SPRITE$SC(1)=SP$:SPRITES(2)=SP$ 
978 ‘eirouit 

988 FOR I=8 TO 1 

998 PSETCT5S,10+45KID 

1988 FOR J=1 TO ADCGC) 

1918 DREDR(GC,J, ID 

1829 HLESXINTCDR/40) : VL=4KHL/5 

1838 ON DR MOD 19 GOSUB 1168,1176,1180,11909,120 
0,12109,1220,1238 

1048 NEXT J,I 

1959 PAINT(6G, 29) 

1060 LINE C65,10)-STEPC20,15),45,BF 
1476 DRAW"C15; BM85,38; NL28; N65; NHS" 
1688 FOR I= TO AS 

1098 PUT SPRITE 1, C4CI, PCH, KLEI 
1160 NEXT I 

1118 RETURN 


1133 ‘sprite data 
1140 DATA &HCB,&HCG,&HCG,G,0,9,9,9 


1169 LINE -STEPCVL,0):RETURN 
1178 LINE -STEPCVL, -HL) : RETURN 
1180 LINE -STEPC@, HL): RETURN 
1196 LINE -STEPC-VL, HL) : RETURN 
1288 LINE -STEPC-VL,8):RETURN 
1218 LINE <STEP GeV, MLA RETURN 
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12209 
1239 
1249 
1250 
1269 
1278 
1280 
1290 
1390 
1319 
1329 
1330 
1349 
1350 
1369 
1379 
13809 
1398 
1409 
1419 
1429 
1439 
1440 
1459 
1469 
1478 
1439 


LINE -STEPC@,HL):RETURN 
LINE -STEPCVL,HL) :RETURN 


‘XX startsein XX 

FOR I=i TO 3 

CIRCLE €20,20%12,7,6,,,4.9 
PAINTC28, 2941), 6 

NEXT I 

FOR I= TO 3 

CIRCLE (20,20%12,7;4,, ; 4e 9 
PAINTC29,28X1I), 4 
PLAY"L2M6I655102A" 

TIME=@ 

IF TIME<6Q THEN 1350 

NEXT I k 

LINE (18,18)-STEPC28,60),3, BF 
TIME=g 

RETURN 


‘XK interval routine XX 

INTERVAL STOP:SPRITE STOP 

TI=TIME/F1+MI 

IF TI-MI>F2 THEN TIME=TIME-F2:MI=MI+60 

FOR I=1 TO AS 

IF JO THEN RI=STICK(I) ELSE RI=STICKCG) 
VXCID=WRKCUXCIHD+CRIDS)D-CRICS AND RI4)) 
VYCID=WRKCUYCIJ+CRI=B OR RI>G AND RIC3)-CR 


123 AND RIC7Ò) 


1499 
1509 
1519 
1520 
1679 
1530 
1549 
1559 
15609 


KCIDEXCID+VXCHD 

ASP EAASRAAAARD, 

KL=POINTCXCID+4, YCID+1D 

IF KL=i THEN STCI)=-STCIDKCSTCIJCH2) :GOTO 


IF KL=415 THEN 1560 

GOSUB 1729’botsing 

GOTO 1679 

IF XCI)C75 THEN STCIJS=STCID-CSTCIJ€H4) : 6OT 


0 1679 


1579 
1580 
1599 
1609 
1619 
16209 


IF STCI)<D4 THEN 1660 
‘ronde volbracht 
PLAY"L2M6I65SL05A" 
ARCIJ=ZAR(ID +4 
AF=AF-CARCIJ=AR) 
‘tijdsadministratie 
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1638 RT=TI+SSCI)-LTCIJD 

1640 LTCID=LTCID+RT 

1658 IF RTCMTCI) THEN MTCIJ=RT 

1668 ST(I)=2 

1670 PUT SRRITE TT, C40I LETA KEEN 

1680 NEXT I 

1698 SPRITE ON: INTERVAL ON 

1798 RETURN 

4740 ’ 

1720 ‘XX botsing XX 

1738 IF ABSC(UXCID)ECL AND ABSCVYCID)CL THEN 4759 
1740 IF NOT PLAYCB) THEN PLAY"","SAM490AGLIA" 
12758 XCIDEXCId-VXCID 

1760 YCID=YCID-VYCID 

1778 SS(I)=SSCIJ+ABS(VKCIDD+ABSCUYCIJD 

1788 VXCI)=20:VY(IJ=0 

1793 RETURN 


1813 ‘XX sprite botsing XX 
1829 SPRITE OFF: INTERVAL STOP 
1839 I=1:GOSUB 1728’botsina 
1849 I=2:G0S8SUB 1728’‘botsing 
1858 INTERVAL ON 

1869 RETURN 

1879 ’ 

1889 ‘XX einde van het spel XX 
1898 SCREEN B:COLOR 15,4,4 
1909 IF INKEY$SCh"" THEN 1900 
1910 PRINT"Circuit:"NM$CGCD 
1928 PRINT"Lengte:"LECGC) "km" 
1939 PRINT"Baanrecord:";:TI=RE(GC)»:GOSUB 2060:P 


1949 PRINT"Aantal ronden: "AR 
19508 PRINT TABC(13)"Tijd"TABC29) "Snelheid (km/u) 


1968 PRINT 

1978 FOR Isi TO AS 

1989 IF AS=2 THEN PRINT" Speler"I 

1990 PRINT"Totaal: ";:TIeLTCI):60OSUB 2960:PRI 
2009 PRINT"Gemiddeld:";:TI=TI/AR:GOSUB 2060:605 


2818 PRINT"Snelste: ";:TI=MTCI):GOSUB 2960:60S 
UB 2190 
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2429 


IF TISRESGC) THEN PRINT TABC5) "Nieuw baanr 


egord!!":RELGO)=TI 


NEN 1 

PRINT 

RETURN 

‘print tijd 

MI=TI/60 

PRINT USING" ##:##.#";MI,TI-6O4MI; 
RETURN 

‘print snelheid 

PRINT USING" HER.HR";IEDOKLELGCH/ATI 
RETURN 
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STUITERBAL 


Heeft U weleens gekeken naar zo'n apart plastic balletje dat je op 
vreemde wijze door de kamer kunt laten stuiteren? 

Welnu … wij hebben hier weer zo'n vreemde stuiterbal die dan nu op 
het beeldscherm van Uw computer zal rondspringen. Deze bal heeft bo- 
vendien nog een extra eigenaardigheid die gewone stuiterballen niet be- 
zitten. De weg die onze bal volgt wordt afgebeeld en blijft zichtbaar, hier- 
door kunnen we nu eindelijk eens zien wat voor mooie regelmatige pa- 
tronen ontstaan door zo'n balletje simpelweg rond te laten stuiteren. 
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‘MEK =- stuiterbal 
DEF FNRNCH)EL+INTSHERNDCKHDD 
DI=FNRN( -TIME/2) 


ON STRIG GOSUB 210 

STRIGC@) ON 

COLOR 1,1,1:SCREEN 2 
ZEFNRNC245) : Y2FNRNC190) 
PSET CX, 4) 
AXZENRNC5O) : AV=S+ENRNCSO) 


‘snelheid en nieuwe plaats 
VEK CL2B- HI / AK 
UitzUNeI5 A 
Ket: Vat 
‘tekening 

LINE -CX,Y),4+FNRNC44) 
GOTO 128 


RUN Á 


DE MARKTKRAMER 


Heeft u zich op de markt wel eens verbaasd over de snelheid waarmee 
een marktkoopman verschillende bedragen kan optellen? 

Dit spel is weer typisch een gezinsspel waarbij we kunnen uitvinden wie 
de beste marktkramer is. Steeds zien we een tweetal getallen die we na- 
tuurlijk moeten optellen. De opgaven worden echter steeds lastiger en 
wel op grond van het volgende. Laten we de volgende optelling eens 
nader bestuderen: 


75856 
+ 37637 


Normaal zouden we eerst de getallen in de rechter kolom optellen, dan 
die in de kolom links daarvan, enzovoort. Hier moeten we echter eerst 
het meest linkse getal invoeren, vervolgens het daarop volgende getal, 
enz. Wel, dit nu is het wat het spel steeds moeilijker en tegelijkertijd uit- 
dagender maakt. 

De praktijk leert dat dit zo eenvoudige spel werkelijk verslavend kan wor- 
den als we een record trachten te breken. 

Om u een beetje te ontmoedigen … ons record is 8. D.w.z. we konden 
nog twee getallen van precies 8 cijfers correct optellen, daarna ging het 
mis. 

Kunt u het beter? 


18 ‘MSX - marktkramer 

28 7 

30 DEF FNRNCX)EL+INTCKHARND(XDD) 
48 DU=FNRNC-TIME/2) 


69 DIM BA$C10) 

79 FOR I= TO 419 

89 READ BA$CI) 

90 NEXT I 

188 DATA grote nul,kleuter,krantejongen,klerk,a 
utoverkoper makelaar 

118 DATA marktkramer,oliemagnaat,miljonair,scho 
olmeester 
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120 TIME=G:AC=1 

138 

140 GA=FNRNC10"AC-1):G2=FNRN(L0"AC-1D 
150 PRINT USING STRINGSCAC+2, "#");G1 
160 PRINT USING STRINGS(AC+2,"#");G2 
178 PRINT" "STRINGSCAC+HA,"-")"+" 

458 * 

198 INPUT"Antwoord”;AN 

299 IF AN=G1+62 THEN PRINT"Juigt!":AC=2AC+1 ELSE 
PRINT"Onjuist!":6G0TO 228 

219 IF TIME<1509 THEN 130 ELSE 230 
220 PRINT"Het was: "G1+62 

230 PRINT"Beroer: "BASCAC) 
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DOORZAKKEN 


Aan het begin van dit eenvoudige maar desalniettemin intrigerende spel 
zien we acht horizontale balken met een aantal gaten. Boven deze bal- 
ken zien we acht stenen die door de gaten kunnen vallen. 


Ò OOOOD® 


nn an 
nnn 


Steen 2 is in ons voorbeeld al door een gat gevallen. Het doel van het 
spel is nu alle stenen uiteindelijk onderin te krijgen en wel door de balken 
op de juiste wijze te laten verschuiven. Om een bepaalde balk te laten 
verschuiven, geven we steeds een commando van de volgende vorm: 


BRS 


waarin B het nummer van de balk voorstelt (van boven naar beneden 
genummerd van 1 tot 8). R de richting waarin de balk bewogen moet 
worden aangeeft (L voor links en R voor rechts) en S het aantal stappen 
is dat we de balk willen laten opschuiven (maximaal 9). 

Bijvoorbeeld: 


3R2 
wil zeggen: laat balk 3 2 posities naar rechts opschuiven. Dit alles lijkt 


eenvoudig, maar het zal toch moeilijk blijken om deze klus in zo weinig 
mogelijk beurten te klaren. 
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‘MEK = doorzakken 


DEFINT A-Z 

CLEAR 2900 

DEF FNRNCHOEL+INTCKHARNDCX)D 

DEF FNJA=INSTRC"Jj",INPUT$C41))>0 
DUERNDC-TIME/2) 


‘XX hoofdprogramma XX 

GOSUB 318’init 

GOSUB 510’start 

B=1:G0OSUB 1030’‘stenen vallen 
GOSUB 798’ invoer 

FOR Z=1 TO A 

GOSUB 899 ’‘schuiven 

GOSUB 1939’‘stenen vallen 
AZ=AZ+1 

LINE (150,128)-STEP(-38, -8),12,BF 
PRINT #1,AZ 

NEXT Z 

IF SC<B8 THEN 430 
PRESET£18,1608) 

PRINT #1,"Nog een keer? "; 

IF NOT FNJA THEN 299 

FRINT #4," Ja” 

DRAW" ERLG" 

PRINT #1, "Dezelfde beginsituatie? "; 
IF FNJA THEN 119 ELSE RIN 
END 

‘KK initialisatie X% 
B5S$=CHRECB): CRESCHRECL ID 
AB=8:LN=17 

DIM BCLN,AB),SICLN,AB), KL (ABD 
FOR 1=8 TO AB 

FOR J=1i TO 4 

K=FNRNGLND 

IF SICK,I2<>@ THEN 370 
SICK, IJse-d 

NEXT J 

READ KLCID 

NEXT I 

DATA 1,6,8,18,3,7,4,5,13 
‘zet stenen neer 


FOR I=1 TÔ 8 

SIC2KI,G)=l 

NEXT I 

OPEN "GRP:" FOR OUTPUT AS #1 
RETURN 


kr ostart spel XX 

COLOR 15,12,12:SCREEN 2 
CANE 602031, 404,17 EF 
FOR I=8 TO AB 

IF I= THEN 589 

PRESET (35,43+10%12 

PRINT #1,1 

FOR J=1 TO LN 
BCJ,IDSSICJ, IJ 

NEXT J 

Y=l:GOSUB 1216’‘teken balk 
NEXT I 

PRESETC19,120} 

PRINT #1, "Aantal zetten: " 
DRAW" BRG" 

PRINT #1,"Score:" 
A2=4:5C=0 

RETURN 


‘XK voer zet in XX 

LINE (129,159)-STEP(-4110,-8),18,BPF 

PRINT #41,"Uw zet? '; 

2T$=" “ 

L$=INPUT$C(41) 

IF L$=CR$ AND ZT$<"" THEN 829 

IF L$)" " THEN ZT$=Z2T$+L$:PRINT #4,L$;:60TO 


IF L$<>B5$ THEN 740 

IF ZT$="" THEN 740 

LINE STEP(@,8)-STEP(-8,-8),12,BF 
ZT$=LEFT$C2T$,LENC2T$) -10 

GOTO 740 

B=ASC(ZT$)-48 

R$=MID$C2T$,2, 10 
R=CINSTRC"LI",R$)20) -CINSTRC"RP",R$) 20) 
A=VALCMIDSC2T$, 3)) 

IF B€1 OR B>8 OR R=@ OR ACL THEN 710 
RETURN 
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1089 
OTO 

1499 
1109 
1110 
1128 
1139 
1140 
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ld 


‘XX voer zet uit 4% 
IF RQ THEN 969 

BCG,B)=B(LN, B 

FOR TISEN TO 4 SIEF =4 

BC{I,B)=B(I-4, B) 

NEXT I 

GOTO 1999 

FOR I=1 TO LN 
BCI-1,B)=B(l, B) 

NEXL 1 

B(LN,B)>=B(G, B 
Y=B:GOESUB 1219‘teken balk 
RETURN 


‘vallende stenen 
FOR I= TO LN 


IF BCI,B)=@ THEN 1180 

IF BCI,B)<@ THEN ST=B-1 ELSE ST=B 

LG=B 

IF LG<8 THEN IF BCI,LG+1)€0 THEN L6a=l6+1:6 
1880 


IF BLI,ST)<=0 OR BCI,LG)>0 THEN 1180 
IF LG<3 THEN BCI,LG)=B(I,ST)>:60TO 1140 
SC=SC+1 

LINE CT4,4362=STEPC=-16,-8),18,BP 

PRINT #1,8C 

BCI,ST)=-1 


1158 
1168 
1179 
1130 
1199 
1208 
1218 
1229 
1239 
1240 
1259 
1269 
1270 
1289 
1299 
1308 
+BCX, 
1310 


X=l:Y=ST:GOSUB 1279’balkdeel 
X=l:'?=L6:60SUB 1276’balkdeel 

IF ST>@ THEN ST=ST-1:L6=L6-1:60T0 1080 
NEXT I 

RETURN 


‘XK teken balk XX 

FOR Xz=í TO LN 

GOSUB 1278’‘teken balkdeel 
NEXT %X 

RETURN 


‘XX teken balkdeel XX 

IF BCX,Y)=8 THEN KL=aKL{(Y}) ELSE KL=i 

LINE (55+8%X,29+1044Y)-STEP(-7,-9),KL, BF 

IF BCX,4)20 THEN DRAW"D2":PRINT #1,CHR$C(48 
WD) 

RETURN 
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UFO AANVAL 


Het is opmerkelijk hoeveel fantasie van pas kan komen om bepaalde 
spelletjes te spelen. We zullen dat illustreren aan de hand van het nu vol- 
gende spelletje, dat we allereerst zo precies en dus zo saai mogelijk 
beschrijven. 

Onderin het beeld bevindt zich een ding’ dat er ongeveer als volgt 
uitziet; 


nl" 


Welnu, er vallen steeds vierkantjes naar beneden. Het „ding’ kunnen 
we door middel van de toetsen Z en / bewegen en wel om te voorkomen 
dat het ding’ geraakt wordt. Oké, dit klinkt allemaal wat saai en daar- 
om zullen we nu een meer fantasierijke beschrijving geven. 

U bent kapitein van het beste ruimteschip in ons heelal. Als u majestu- 
eus de Melkweg doorzweeft voelt u zich zeer trots op dit prachtige 
schip. Maar helaas als u eindelijk uw thuisbasis nadert, kortom als het 
einde van de reis in zicht is, slaat het noodlot toe. 


UFO's vallen aan!!! 


Hoe kunt u aan deze zeer gevaarlijke invasie ontkomen? Hoe kunt u 
uzelf en dat prachtige ruimteschip redden? Waarom probeert u niet uw 


A -O-P - M of Atoom-Ontsnappings-Proton-Motor? 
Hoe meer UFO's u kunt ontwijken, hoe meer punten u krijgt! 


Ziezo … dit klinkt al wat beter, of niet dan?! In elk geval is dit een snel, 
eenvoudig en attractief spel en daar gaat het uiteindelijk om! 
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18 ‘MSX - UFO aanval 


98 DEFINT A-ë 
40 DEF FNRNCXOEL+INTCXHKARNDGXD) 
53 DU=FNRNC-TIME/2) 


79 ‘XX hoofdprogramma XX 
89 GOSUB 158’'init 

98 GOSUB 380’schip 

198 GOSUB 469 

118 IF NOT KL THEN 99 
129 GOSUB 619’‘einde 

134 END 


150 ‘XX initialisatie XX 

168 INPUT"Niveau";AU 

178 DIM HPCAU),VPCAUD 

189 S$="" 

199 FOR I= TO 46 

209 READ V$ 

210 S$=5$+CHRECVALC"EH"4USDD 
229 NEXT I 

230 DATA 28,D6,28,DC,28,BA,1D,1D,1D,1D,1D,28,D5 
D3, 29 

240 COLOR 15,1,4 

250 SCREEN 1 

269 P=10 

279 LOCATE P,22 

280 PRINT 5$; 

299 SP$="" 

300 FOR I=4 TO 8 

310 READ V$ 

320 SP$=SPS+CHRSCVALC "EH" US), 
330 NEXT I 

340 DATA FC,‚,30,76,PC,PC,PC, 768, 30 
350 SPRITE$(Q)=SP$ 

368 RETURN 


hd 
nn 


380 ‘XX beweging schip XX 

390 B$=INKENS$ 

400 IF B$="" THEN RETURN 

419 P=P+CINSTR("Z2zZ",B$)>0 AND P20)-CINSTR("?/", 
B$)>0 AND P423) 

428 LOCATE P,22 
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430 
440 
450 
460 
470 
430 
499 
510 
528 
>39 
540 
550 
560 
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PRINT 5$; 
RETURN 


‘EK ufO’S XX 

U=U+4 

IF U>AU THEN U={ 

IF VPCU)>0 THEN 530 
HPCUD=8KP+FNRNC 70) 
VPCUIZENRNC3BKAUD 
VPCUD=UPLIJD+5KAU 

PUT SPRITE U, CHPCU),VPCU)),6,0 
IF VP£U)€175 THEN RETURN 
VPCU)=0 


570 
560 
585 
590 
648 
610 
620 
630 
640 
650 
660 
670 


PUT SPRITE U,C8,0),1,0 
KL=CHPCU)218+84P) AND CHPCUIC4I+8KPD 
AP=AP-NOT KL 

RETURN 


‘KX einde XX 

SOUND 6,55 

SOUND 7,7 

PLAY"S1M2090BL2A" 

SCREEN @:COLOR 15,4,4 

PRINT" U heeft"AP"punten gehaald," 
RETURN 
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MINI MANCALA 


Mini mancala is een originele creatie van C. Freelink. Het is gebaseerd 
op een oud Arabisch spel, waarbij stenen in kommetjes worden ver- 
deeld. Er zijn vier bakjes: A en B zijn van de computer en C en D zijn 
van u. Als het spel begint liggen er twee stenen in elk bakje. 


A(computer) B(computer) 
C(speler) D(speler) 


Om de beurt nemen de spelers de stenen uit één van hun eigen bakjes 
en verdelen ze één voor één tegen de klok in over de andere drie 


bakjes. 
U kunt er bijvoorbeeld voor kiezen om de stenen uit bakje D te verdelen: 


hd B(computer) 


tegen de klok in 
D(speler) 
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Na deze zet is bakje D leeg. Er zal trouwens altijd minstens één bakje 
leeg zijn want gedurende iedere zet mogen de te verdelen stenen nooit 
in het bakje waaruit ze gekomen zijn worden teruggelegd. 

Om te winnen moeten alle stenen in een van uw eigen bakjes liggen. Zo 
kan de tegenstander immers geen enkele zet meer doen. De bakjes 
worden in dit spel op het scherm voorgesteld door vierkantjes met getal- 
len die het aantal stenen aangeven. 

We kunnen allereerst een moeilijkheidsgraad kiezen (1, 2 of 3: 1 is het 
gemakkelijkst). Bovendien mogen we aangeven wie mag beginnen. 
Als u aan de beurt bent vraagt de computer van welk bakje u de stenen 
wilt verspreiden. Uiteraard geeft de computer steeds aan wat zijn eigen 
zet is. Na iedere zet toont de computer hoe de stenen over de bakjes 
verdeeld zijn. 

Het is in feite verbazingwekkend dat een dergelijk ingewikkeld spel met 
zo'n kort programma beschreven kan worden. 

Tenslotte vestigen we de aandacht op het diagram dat hier is afgebeeld. 
Dit diagram toont alle mogelijke zetten, kortom alle strategische wegen 
die we in dit zo boeiende spel kunnen bewandelen. Het is een fraai voor- 
beeld van een met name strategisch spel. 


14 ‘M3X - Mini Mancala 

Rn * 

34 DEFINT A-2 

40 DEF FNJACXS)=INSTR("Jj",LEFT$SCX$,1))>0 
53 DEF FNRNCX)E4+INTCXARND(X)) 

63 DU=ZFNRNC-TIME/2) 


89 ‘XX hoofdprogramma XX 
90 GOSUB 238'init 

1909 GOSUB 360’scherm 

1418 IF NOT ST THEN 159 

128 GOSUB 538‘voer zet in 
130 GOSUB 610’‘uitzaaien 
148 IF B(3)=8 THEN 189 

158 GOSUB 819’computer zet 
160 GOSUB 619’uitzaaien 
178 IF BC@)<8 THEN 128 

188 GOSUB 94Q ‘einde 

198 INPUT"Nog een keer" ;AN$ 
208 IF FNJACAN$) THEN RUN 
218 END 
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420 

238 ’XX initialisatie XX 

248 DIM B(3),0V(3) 

258 INPUT"Welk nivo (4-3)";NV 
260 IF NV<1 OR NV23 THEN 259 
278 INPUT"Wilt u beginnen”;AN$ 
289 ST=FNJACAN$) 

298 FOR 1=8 TO 3 

308 READ OVID 

319 B(I)=2 

320 NEXT I 

3308 DATA 2,4,3,1 

348 RETURN 


368 ‘XX scherm XX 

370 SCREEN 9 

388 PRINT" Mini - Mancala 
398 PRINT:PRINT 

498 PRINT" A B 
418 PRINT" mna samen’ 
428 PRINT" | | | 
438 PRINT" de ol 
440 PRINT" | | | 
458 PRINT" | mamma mmemman: 
4608 PRINT" | | | 
478 PRINT" CRN 
4809 PRINT" | | | 
439 PRINT" mensne 
500 PRINT" C D 
519 RETURN 


538 ‘KX voer zet in XX 

548 LOCATE 9,415 

550 PRINT"Welke kom kiest u (C,D)? "; 
560 K=CINSTRC"CeDd",INPUTS$C4))+3)/2 
578 IF K<2 OR B(K)=0 THEN 56 

500 PRINT MIDSCICP*, KL 4 

590 RETURN 


619 ‘4% stenen uitzaaien XX 
628 D=K 

630 FOR I=B(K) TO 4 STEP -4 
648 D=OV(D) 

658 IF D=sK THEN D=0V(D) 
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Ee 
(EB) nn BEE Hun EN 
8 aaan via as al 


| 
| 
IJ 
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669 
670 
680 
690 
709 
718 
728 
738 
148 
759 
760 
778 
786 
738 
808 
810 
820 
830 
848 
850 
860 


TIME=@ 

IF TIME<5@ THEN 679 
B/K)=BCK)D -1 

N=K:GOSUB 769’‘pas bord aan 
B(D)=B(D)+1 

N=D:GOSUB 764’‘pas bord aan 
PLAY"OSL39C" 

NEXT I 

RETURN 


‘XX pas bord aan XX 

LOCATE 44+4XCN AND 1),6+2XCN AND 2) 
PRINT BCN) 

RETURN 


‘XX computer zet XX 

LOCATE 0,45 

PRINT "Ik ben aan zet."SPCC20) 

TIME=@ 

IF TIME<459 THEN 859 

IF NV<3 AND FNRNC4B)KNV46 THEN KaFNRN(2)-1: 


GOTO 890 


870 


Q=BCO)K190+BC1IKLOFBC2) 

K=-NOT (Q=143 OR Q=134 OR Q=611 OR Q=146) 
IF B4K)=@ THEN Kei-K 

LOCATE 8,15 

PRINT"Ik zaai uit vanuit kom ";CHR$C65+K) 
RETURN 

‘XK einde XX 

LOCATE 8,45 

IF B£{3)=8 THEN PRINT"U heeft "; ELSE PRINT" 


Ik heb "; 


978 
980 
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PRINT" gewonnen. "SPCC20) :PRINT 
RETURN 


STOP IT 


Dit is nu eens een typisch voorbeeld van een spel dat hoewel zeer kort 
toch zeer boeiend is. 

Heeft u wel eens getest hoe snel u reageert? Niet … dan biedt dit spel 
u de mogelijkheid om dat eens uit te testen. Hoe sneller u reageert, hoe 
meer punten u haalt. 

Het scherm ziet er als volgt uit: 


In het vierkantje zien we steeds een letter staan. Als dit vierkantje nu over 
het scherm beweegt (van links naar rechts), moet u trachten het te stop- 
pen en wel door zo snel mogelijk op de spatiebalk te drukken als het 
vierkantje zich bevindt in de kolom die dezelfde letter draagt. De compu- 
ter vraagt iedere keer hoe vaak we het spel willen spelen en op welk ni- 
veau (1 — 3), 1 is het gemakkelijkst. Aan het einde van het spel zien we 
dan nog bovendien hoe goed we wel waren, bijvoorbeeld: 


O VAN DE 10 RAAK 


Mmm … niet zoveel natuurlijk, volgende keer beter! 
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‘MSX = Stop It! 

DEFINT A-Z 

DEF FNRNCXOEL+INTCXARNDCHODD 
DU=FNRNC-TIME/2) 


‘XX hoofdprogramma X% 
GOSUB 179’ init 
ON STRIG GOSUB 650 
STRIGC8) ON 
FOR D= TO AK 
GOSUB 519’schiet 
NEXT DU 
GOSUB 719’‘einde 
RIJN 


‘XX initialisatie XX 
JA=-1:NEE=@ 

‘invoer 

INPUT"Spelniveau C41-32";NV 
IF NV<1 OR NV>3 THEN 209 
INPUT"&Aantal keer" ;AkK 

IF AK<C1 THEN 229 

‘sprites 

SCREEN 1 

As=4 

FOR I= TO AS 

Sp$=" “u 

FOR J=1 TO 8 

READ V$ 
SP$=SPS+CHRECVALC" EH" ASD DD 
NEXT J 

SPRITES(CIJ=SPS$ 

NEXT I 

DATA 19,28,44,44,7C,44,44,09 
DATA 78,24,24,38,24,24,78,09 
DATA 18,24,40,40,40,24,183,09 
DATA 79,28,24,24,24,28,79, 90 
‘bord 

FOR I=1 TO AS 

FOR J=z8 TO 23 

LOCATE 8+4XI,J 

PRINT CHR$C1)+CHR$CB6); 

NEXT J 


456 LOCATE 10+441I,9 

4608 PRINT CHR$(64+1); 

470 NEXT I 

480 RETURN 

490 ’ 

598 ’ 

510 ‘XX beweeg letter XX 
520 ST=NEE 

534 ‘kies letter 

549 L=FNRNCAS) 

550 X=0:Y=204+FNRNC15GD 
568 PUT SPRITE L, 6%, V2; 4 
578 XaXtNV 

588 IF X<255 AND NOT ST THEN 560 
590 PUT SPRITE L‚C=18,9) 
609 ‘bepaal stopplaats 
619 KO=CX-80)/32 

620 IF KOCDL THEN AMzAM+1 
€38 RETURN 

649 ’ 

650 ‘AX stop letter XX 
6608 DUS=INKEYS 

670 ST=JA 

688 RETURN 

6€IG ’ 

7199 ‘einde 

718 CLS 

728 PRINT "Resultaat: "AK-AM"van de"AKkK"raak, " 
738 RETURN 
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BAAB 


Als we het hebben over een „thema con variatione”’ dan hebben we het 
over een melodie die, hoewel gebaseerd op een reeds bekende melo- 
die toch zijn eigen kenmerk draagt. Dit spel kan inderdaad beschouwd 
worden als een „thema con variatione’’ omdat het in zekere zin lijkt op 
een ander spel in dit boek. Het heeft echter toch een heel eigen 
karakter. 

U ziet steeds 16 velden waarop ogenschijnlijk willekeurig A's en B's zijn 
geplaatst. 


Welnu, als u een van de velden aangeeft (op het beeldscherm wordt 
naar het rij- en kolomnummer gevraagd) dan zullen alle letters in zowel 
de horizontale als vertikale rijen die door dit aangegeven veld lopen ver- 
anderen. Dus elke A wordt nu een B en omgekeerd. 

Het is in ieder geval erg eenvoudig: we moeten uiteindelijk het volgende 
resultaat krijgen: 
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‘MSX = BAAB 

DEFINT A-2 

DEF FNRNCXOEL+INTCXKRND(X)) 
DUZFNRNC-TIME/2) 


‘XK initialisatie XX 
DIM BC4,4) 
FOR R=s1 TO 4 


FOR K=1i TO 4 
BCR, KOEFNRNC2) 
NEXT K‚R 

CLS 

‘bord 

LOCATE 6,1 
PRINT"41234" 


FOR Rei TO 4 
PRINT:PRINT TABC3);R; 
FOR Kai TO 4 

PRINT CHRS$(64+BCR, KJ); 
NEXT K‚R 

‘voer zet in 

LOCATE 8,8 
INPUT"Rijz=";R 

IF R<1 OR R>4 THEN 236 
FOR Kz TO 4 
B(R,K)=3-B4R, KD) 

NEXT K 
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290 LOCATE 8,9 

398 INPUT"Kolom=";K 

348 IF K<1 OR K>4 THEN 299 
320 BCR,K)=3-BCR,K) 

330 FOR Rei TO 4 

349 BCR,K)=3-BR, KD) 

350 NEXT R 

368 GOTO 149 
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KLINKERS EN MEDEKLINKERS 


Dit competitiespel is nu eens een spel dat door het hele gezin gespeeld 
kan worden. Aan het begin van het spel moet u het aantal spelers opge- 
ven. De computer geeft telkens zeven letters. Als hij vraagt: 


K OF M? 


Dan typt u een K voor een klinker en een M voor een medeklinker. Als 
u op deze wijze zeven letters heeft verkregen begint het werkelijke spel: 
de computer daagt u nu uit om een zo groot mogelijk woord van deze 
letters te maken. Elke letter mag Slechts éénmaal gebruikt worden. Een 
letter kan verwijderd worden door middel van de BS toets. Er geldt een 
tijdslimiet die op een klok getoond wordt. 


Het is verbazingwekkend hoe spannend en moeilijk zo'n eenvoudig 
spel kan zijn! 


18 "MSX = klinkers en medeklinkers 


38 DEFINT A-Z 

40 DEF FNJACXS$)=INSTRC("Jj",LEFTSCX$, 1D) 0 
5 DEF FNRNCXO=4+INTCXARNDCX)D 

63 DU=FNRN(-TIME/2) 

1e £ 

38 ‘XX hoofdprogramma XX 

98 GOSUB 298’ init 

108 ON INTERVAL=5@ GOSUB 799 

118 FOR Iei TO AS 

128 CLS 

138 PRINT"Speler"I"is aan de beurt." 

149 GOSUB 380’letters 

158 LOCATE 8,1 

168 PRINT"Tijd in sekonden:" 

178 TI=s5@: INTERVAL ON 

188 PRINT"Maak hier een woord van:":PRINT LE$ 
198 GOSUB 519’voer woord in 

2398 INTERVAL STOP 
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GOSUB 790’‘bereken punten 
PRINT"Sla een toets aan." 
IF INKEY$="" THEN 238 
NEXT I 

INPUT"Nog een ronde";AN$ 
IF FNJACAN$) THEN 110 

END 

, 


‘XK initialisatie XX 

BS$=CHR$CB): CRSSCHRECL3)I:DLSSCHRSC(127) 
INPUT"Aantal spelers";AS 

IF AS<1 THEN 310 

DIM PTCAS),LES$C2) 

LE$S(1)="AEIOUY" 
LE$(2)="BCDFGHIKLMNPERSTVWXZ" 

RETURN 


‘XX kies letters XX 

LE$="" 

PRINT"K of M? "; 

FOR J=i TO 7 
KZ=CINSTRC"KkMm",INPIJTS$C1))+1)/2 
IF K2=8 THEN 429 
N$=MIDSCLESCKZ),FNRNCLENCLESC(KZ2)), 1) 
LE$S=LES$+N$ 

PRINT N$; 

NEXT J 

PRINT 

RETURN 


‘XK voer woord in XX 
PRINT" Uw woord: "; 

Wo$=" “ 

N$=zINKE"\$ 

IF TI=8 THEN 6709 

IF N$=""THEN 540 

IF N$=CR$ THEN 670 

IF N$=B5$ THEN 649 
NS$=CHRSCE4+ASCHNS) MOD 32) 
IF NS$<C"A" OR N$"Z2" THEN 540 
WOS$EUODS+NS 

PRINT N$; 

GOTO 549 


640 WOS=LEFT$SCHOS,LENCWOS) -1) 
658 PRINT DL$; 

660 GOTO 540 

679 RETURN 

650 

638 ’ 

798 ‘KX tijd bijhouden XX 
148 TiatI-l 

728 PLAY"VABO6ELE4C" 

738 CX=POS(B) : CY=CSRLIN 
740 LOCATE 28,1 

758 PRINT TI; 

768 LOCATE CX,6Y,1 

779 RETURN 


798 ‘XX bereken punten XX 

893 FOR L=4 TO LENCWOS) 

819 N=INSTR(LES,MIDSCWOS,L, 12) 

829 IF N>@ THEN MID$(LES,N,4)=CHR$CG) ELSE L=lE 


930 NEXT L 

849 IF N28 THEN PTCID=PTCIJD+LENCHOS) 

850 LOCATE 4,6,9 

869 FOR J=1 TO AS 

879 PRINT"Speler"J"heeft nu"PT(J) "punten." 
8308 NEXT J 

890 RETURN 
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MAANFASE ASTROLOGIE 


Dit programma is gebaseerd op een studie van de Nederlandse natuur- 
kundige en astroloog Dr Ir J. van Slooten. Hij was onderzoeker op het 
beroemde Natlab van Philips en besteedde al zijn vrije tijd aan astrolo- 
gie. Hij ontwikkelde een zeer interessante astrologische theorie nl. dat 
de stand (fase) van de maan op het moment van geboorte een zeer be- 
langrijke invloed op het nog te vormen karakter zal hebben. Na het 
bestuderen van het leven van honderden mensen kwam hij tot de vol- 
gende conclusie: (we citeren nu letterlijk uit zijn boek maan-phase psy- 
chologie; uitgave Veen, Amersfoort) „De maanfase schijnt uit te drukken 
hoe de persoon zich met zijn zieleleven instelt tegenover de totaliteit van 
zijn medemensen, d.w.z. de maatschappij, en welke rol hij speelt in de- 
ze maatschappij; in laatste instantie: zijn missie in de wereld.’ 


Het diagram toont de cyclus van de maanfasen. Er zijn drie hoofdgroe- 
pen te onderscheiden nl. wassende, volle en afnemende maan. Daar- 
om zijn er ook drie typen mensen die op basis hiervan gedefiniëerd zijn. 


INDIVIDUALISTEN: 

geboren onder de wassende maan. Ze houden ervan om zelfstandig te 
werken, hebben een sterke wil en worden niet ontmoedigd door onge- 
makken. We citeren weer: „De individualisten werken ieder voor zich (zij 
„zien de anderen niet goed in het donker’') -vandaar hun naam. Een 
sterke innerlijke zekerheid van groei helpt hen over teleurstelling en te- 
genwerking heen; dagelijkse materiële zorgen zijn niet spoedig in staat, 
de uitvoering te beletten van datgene wat zij zich in het hoofd hebben 
gezet.” 


SOCIALISTEN: 

geboren onder de volle maan. Ze houden ervan in gemeenschappen 
te leven. Sleutelwoorden voor deze mensen zijn „vergelijken’’, „kiezen”’ 
en „combineren. Samenwerking is een overheersende factor, maar er 
is ook rivaliteit en afgunst. We citeren weer: …. De samenwerking is hier 
het sterkst, maar.ook concurrentie; de behaagzucht, maar ook de mi- 
nachting; de bewondering maar ook de verguizing. Werpt niet juist het 
helderste licht de donkerste schaduwen? …' 
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BEHERENDEN: 

zij zijn geboren onder een afnemende maan; zij weten dat het volle licht 
eens weer terug zal keren. Ze zijn voorzichtig en zeker van zichzelf, ze 
houden ervan alles onder controle te hebben. Of (citaat),, … niet dat zij 
afkerig zijn van roem en eer, maar zij aanvaarden (en eisen) die meer 
voor de zaak die zij voorstaan dan voor hun eigen persoon. „Ars longa, 


vita brevis''. 


Deze drie typen kunnen weer verder worden onderverdeeld om zo in 
het totaal 12 categorieën op te leveren. 


Voortrekker 

Deze personen lopen altijd voorop: Hun doelgerichtheid kan hen soms 
stijfkoppig laten zijn. Enerzijds kunnen we stellen dat deze personen erg 
eenzijdig zijn anderzijds blijkt dat in praktijk ook een van hun sterke 
punten. 


Samentrekker 

Tegenover de voortrekker staat de samentrekker, zij houden ervan met 
anderen samen te zijn, maar ze voelen dat ze „more equal’ zijn dan hun 
metgezellen. Ze zijn romantisch en houden erg van het gezinsleven. Ci- 
taat: „Doet zich het geval voor dat een voortrekker’ een groep om zich 
heen vormt, dan zullen dat doorgaans lieden zijn van belangrijk minder 
betekenis: volgelingen, supporters, die de afgezonderdheid van de 
‚ster eerder onderstrepen dan opheffen. De „samentrekker'' echter 
zoekt zich te omringen met gelijkwaardigen, wil „primus inter pares” zijn 


EE) 


en trekt zich terug uit een kring van ‚„‚min-vermogenden'’. 


® 
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Realist 
Staan met beide benen op de grond. Ze denken dat alles verklaard kan 
worden op basis van fysische verschijnselen. We zouden ze de bij uit- 
stek ‚nuchteren” van onze samenleving kunnen noemen. Wonderen 
zijn er om onmiddelijk aan de hand van fysische wetten verklaard te 
worden. 


ROX 


Spiritualist 

Zijn eigenlijk „niet van deze aarde''. Het zijn bij uitstek de zoekers naar 
het onbekende. Bovendien verwachten zij een verrassingselement van 
dat onbekende dat zij als een wonder zullen verwelkomen. 


(Ox 


Artiest 

Artiesten veranderen materialen op hun geheel eigen wijze. Ze kunnen 
kunstwerken scheppen maar ook nieuwe produkten ontwerpen. 

Bij de artiest gaat het niet om het materiaal waar hij vanuit gaat maar de 
nieuwe vorm. 


) 


Apostel 

Deze personen zijn zelf niet erg creatief maar ze dragen eerder de 
ideeën van anderen over de aarde. Citaat … Hier is het niet een eigen 
vinding die -zij het naïef of onbeholpen- wordt uitgebeeld, maar een an- 
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dermans idee, waarvoor de aandacht wordt gevraagd en met grote toe- 
wijding „reclame' wordt gemaakt.’ 


( 


Sleuteldrager 

Voelen zich verantwoordelijk voor hun medemensen, vooral voor de 
medemensen die anders vergeten zouden worden. Ze zijn dus behulp- 
zaam en zorgen voor anderen. Typische voorbeelden zijn Albert 
Schweitzer en William Booth. Sleuteldragers kunnen ook ter verantwoor- 
ding worden geroepen en zo in feite in dubbele betekenis „„zorgdrager’' 
worden.” 

Gezagsdrager 

Nemen eveneens verantwoordelijkheid op zich maar dan met het doel 
het leven en gedrag van anderen te beïnvloeden. Ze kijken vooruit waar 


de meeste mensen liever terug zouden zien. Hun stijl wordt eerder door 
het woord „gebod'' dan door het woord verbod’ gekarakteriseerd. 
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Ridder 

Ridders zijn min of meer roekeloze avonturiers, altijd op zoek naar nieu- 
we ontdekkingen. Het zijn idealisten met een sterk eergevoel…… De Rid- 
der „zonder vrees of blaam'’ is de onverschrokken avonturier, de trotse 
kampioen, de heldhaftige strijder die de handschoen opneemt en met 
blijmoedige branie zijn leven waagt.” (citaat) 


Arbiter 

Deze lieden oordelen graag over andermans doen en laten. Ze voor- 
spellen niet, maar als ze een beslissing nemen verwachten ze dat die 
ook geëerbiedigd wordt. Citaat: „Bij zijn uitspraak zal hij meestal een 
vorm kiezen die, hoe positief ook, toch niet kwetsend is en meer ani- 


meert dan irriteert.’ 

Revolutionair 

Deze personen zijn meestal ontevreden met de wereld waarin wij leven. 
Ze hebben de neiging van alles alleen de slechte zijde te zien en willen 
de wereld veranderen. Nu zijn er helaas wel veel slechte zaken op onze 


aardbol aan te wijzen. De revolutionair zal deze aanwijzen en zal voor 
het oplossen ervan geen compromis willen aanvaarden. 


De 
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Profeet 

Profeten beschouwen onze wereld als het ware van bovenaf. Ze voor- 
spellen de toekomst. Niet altijd echter wordt er naar hen geluisterd. Niet 
voor niets luidt het spreekwoord „ profeten worden niet in eigen land 
geëerd"’. 


D/ 


Dit zeer korte programma vraagt alleen om uw geboortedag. Op grond 


van 


dit gegeven wordt dan de maanfase berekend. Aan de hand van 


het getoonde schema kunnen we dan precies nagaan wat deze maanfa- 
se ons te zeggen heeft. 
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‘MSX = maanftase astrologie 


‘XK hoofdprogramma XX 
GOSUB 119’datum invoeren 
GOSUB 219’‘berekening 
GOSUB 319’‘resultaat 
PRINT"Sla een toets aan" 
IF INKEY$="" THEN 80 
GOTO 49 


‘KX datum invoeren XX 
CLS 

PRINT" MAANFASE" 
INPIJT"Dag DD ";D 
INPUT"Maand MM ";M 
INPUT"Jaar JJJJ";Y 

IF MC3 THEN MeM+12:Y=t=-1 
RETURN 


‘Xx berekening XX 
T=INT(365.25XY)+INT(30.6KC(M+1))+D-6949I8! 
T=1T/36525! 

LA=350.737486H+1236EKTKIEG 
LA=LA+397XT+6KT/60 
LA=zLA+514.18XT/36009-5,17KT"2/3600 


270 
288 
290 
300 
318 
320 
330 


LA=sLA-INTCLA/360) 360 
LAZINT(LA+, 5) 
RETURN 


‘XK resultaten X4 
PRINT"Maanfase ="LA"graden" 
RETURN 
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Krijgt uw brein wel voldoende oefening? Is uw geest wel zo scherp en zijn 
uw reacties wel zo snel? Nee? 


Masseer dan uw hersenen met deze geweldige verzameling spelen: 
— boeiende avonturen (adventure games) 

— wervelende akties (arcade games) 

— denkspelen 

— puzzels en kwissen 

— behendigheidsspelen. 


Al deze spelen zijn voor uw Philips MSX volledig uitgewerkt. 

Deze kant-en-klaar programma's zijn als originele listings afgedrukt, zodat 
geen fouten kunnen optreden. 

Dit boek bevat dertig spelen, waaronder: 

— Zombies in het moeras 

— Escher (hoe maak ik mijn eigen Escher?) 

— Het avontuur met IT 

— Galactische monsters 

— New York, het fantastische spel tussen de wolkenkrabbers. 


Treed nu de geweldige wereld van Renko & Edwards binnen! 


A 
WW ADDISON-WESLEY 


W) UITGEVERIJ OMIKRON 
ISBN 90 6789 032 4 


